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ABSTRACT 


This  thesis  is  an  interactive  wargame  using  an  APPLE  III 
microcomputer  (128K  configuration)  prograinned  in  UCSD  PASCAL. 

It  is  designed  as  a  naval  task  force  undergoing  an  air  attack 
and  is  modeled  from  the  Air  Battle  Analyzer  by  M.  C.  Waddell  of 
the  Johns  Hopkins  University  Applied  Physics  Laboratory. 
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I.  INTRODUCTION  AND  BACKGROUND 


A.  AN  INTERACTIVE  COMPUTER  ASSISTED  WARGAME 

A  wargame  can  be  considered  to  be  "any  type  of  analysis  or  modeling 
that  contains  an  explicit  representation  of  two  or  more  sides  in  defining 
an  adversary  or  conflict  situation."  [Ref.  lj  Military  science  has  long 
been  interested  in  games/gaming  for  their  use  in  establishing  tactical 
and  strategic  doctrine  and  the  development  of  new  and  improved  weapon 
systems.  Low  [Ref.  l]  has  proposed  that  "a  morphological  matrix  can  be 
constructed  in  three  dimensions  to  review  the  field  of  military  games  in 
all  its  forms."  Figure  (1.1)  is  this  classification  matrix.  The  dimen¬ 
sions  of  the  matrix  are  technique,  scope,  and  application.  From  this 
matrix  it  is  obvious  that  there  are  many  possible  combinations  of  tech¬ 
nique,  scope  and  application  in  the  development  of  different  wargames. 
"Clearly,  any  research  to  be  performed  in  gaming  must  be  selective  and 
focused  on  particular  elements  of  this  matrix  if  the  effort  is  not  to 
become  untenable  in  its  proportions."  [Ref.  lj 
—  The  air  battle  computer  program  of  this  thesis  is  an  interactive 
wargame  using  an  APPLE  III  microcomputer  programmed  in  UCSD  PASCAL. 

It  is  designed  as  a  many  on  many  engagement,  to  provide  a  tool  for 
operations  planning  and  evaluation,  as  an  interactive  computer  wargame^ 
and  would  be  located  as  such  in  Figure  (1.1).  ^This  wargame  also  has 
training  and  educational  applications  and  therefore  could  be  easily 
integrated  into  a  wargaming  or  simulation  course  as  a  teaching  aid  due 
to  its  flexibility,  ease  of  operation  and  portability. 
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Figure  1.1  Gaming  Classification  Matrix 


selection  of  the  Air  Battle  Analyzer  as  a  model  for  this  thesis 
was  made  because  it  provided  a  convenient  format  to  initiate  an  inter¬ 
active  wargame  on  a  microcomputer.  It  is  designed  to  be  general  in 
approach  and  provide  much  flexibility  in  the  play  of  the  game.  It  also 
provided  a  very  convenient  and  mathematical  approach  that  was  easily 
translated  into  a  computer 

B.  WHY  A  MICROCOMPUTER? 


In  the  last  few  decades,  computers  and  the  problems  to  which  they 
have  been  applied  have  been  a  primary  concern  of  both  civilian  and 
military  communities.  Computers  have  evolved  from  the  UNIVAC1,  vintage 
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1950  vacuum  tube,  through  the  transistors  of  the  late  fifties  to  the 
silicon  chips  and  Integrated  circuits  of  today.  New  applications  for 
computers  are  appearing  everyday.  Therefore,  it  is  not  surprising  that 
the  military  establishment  has  diligently  researched  the  applicability 
of  the  computer  to  its  multitude  of  problems,  e.g.,  guidance  mechanisms 
for  weapons,  inventory  maintenance  of  logistic  support  equipment,  and 
computer  wargames. 

This  evolution  of  the  computer  is  phenomenal.  The  computers  of  today 
are  faster,  more  efficient,  have  a  larger  memory  capacity  and,  all  this 
notwithstanding,  are  cheaper  to  build  and  operate.  "With  every  major 
advance  in  solid  state  electronics  technology,  you  get  two  new  products; 
a  smaller  version  of  yesterday's  computer  and  a  more  powerful  version  of 
today's  computer."  [Ref.  2]  Microcomputers  today  are  relatively  cheap 
and  are  becoming  a  very  common  appliance.  They  can  be  found  on  board  the 
ships  and  aircraft  of  today's  Navy.  They  are  relatively  unimposing 
machines  and  most  are  very  simple  to  operate.  With  the  advent  of  these 
machines  on  board  our  ships,  it  has  become  imperative  that  they  be  used 
constructively. 

Wargaming  in  the  past  has  been  conducted  manually  or  at  great  expense 
on  large  computer  facilities.  Microcomputers  offer  a  very  pleasing 
alternative  to  the  plotting  and  frustrating  tasks  of  manual  wargaming  and 
provide  a  very  economical  alternative  to  the  large  computers.  The  NAVAL 
TACTICAL  GAME,  NAVTAG,  TRAINING  SYSTEM  is  an  example  of  a  valuable  aid  to 
teaching  tactical  doctrine  through  the  use  of  an  interactive  microcomputer 
wargame.  The  NAVTAG  system,  however,  consists  of  three  microcomputers, 
three  video  display  terminals,  three  mass  storage  devices  and  a  printer. 
This  system  is  designed  specif’ rally  for  1AVTAG. 


C.  PURPOSE 

The  purpose  of  this  thesis  is  twofold.  First,  to  create  a  prototype 
microcomputer  version  of  the  Air  Battle  Analyzer  and  second,  to  explore 
the  capability  of  a  standard  APPLE  III  microcomputer. 
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II.  AIR  BATTLE  ANALYZER 


A.  PURPOSE 

The  Air  Battle  Analyzer  is  published  by  The  Johns  Hopkins  University 
Applied  Physics  Laboratory.  It  was  developed  in  1963  as  a  "means  for 
considering  in  an  orderly  and  economical  fashion,  how  a  hypothetical  air 
battle  may  progress."  It  is  to  be  used  "in  ascertaining  the  effects  of 
both  deployment  and  tactical  employment  of  various  weapon  systems  and 
other  equipment  on  many  different  battle  situations."  [Ref.  3] 

B.  DESCRIPTION,  TOOLS 

The  Air  Battle  Analyzer  is  used  as  a  tool  to  bring  into  perspective 
the  interactions  of  forces  in  an  air  battle.  It  is  designed  to  provide 
a  chronological  display  of  movements  and  operations  of  the  different 
units  involved.  The  primary  tool  toward  this  goal  is  the  plotting  and 
display  chart.  Figure  (2.1).  This  figure  has  several  of  the  lines  and 
units  plotted,  reflecting  what  the  chart  looks  like  after  a  battle 
scenario  has  been  enacted.  The  chart  is  sectioned  into  three  areas,  a 
range-altitude  plot,  a  range-azimuth  plot,  and  a  range-time  plot.  The 
link  between  the  areas  is  the  range  scale,  which  runs  along  the 
horizontal  axis.  This  common  link  is  designed  to  facilitate  reference 
from  one  plot  to  another. 


11 


usaaaaa 


Eases 

BSIM 

cjssssssb 

333CS3BB 

saaaaau^H 

ligg£5SSS||5 

caaiBcauljH 

llisiiiiiil 


@BK5=piis| 

lilsMsuiiis 


linifisaiMaii 

li:SK»!S»l 

■■■■■■■■■■■CBM 


Hgagsaaaa 


sasxsssssaBmaBl 


Figure  2.1  Plotting  Chart  (Reduced) 


Included  with  the  chart  are  several  nomographs  and  plastic  plotting 
tools  that  are  essential  for  several  of  the  numerical  calculations 
involved,  and  that  facilitate  the  actual  plotting  of  lines  on  the  dif¬ 
ferent  areas  of  the  chart.  Figures  (2.2)  and  (2.3)  are  examples  of  the 
associated  tools  for  use  with  the  Air  Battle  Analyzer.  Figure  (2.2)  is 
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a  Mach  Meter,  used  "for  drawing  aircraft  range-time  lines  having  slopes 
appropriate  to  the  aircraft  speed."  Figure  (2.3)  is  a  nomograph  for 
determining  radar  detection  ranges  in  a  clear  environment. 


Figure  2.2  Mach  Meter  Template  (Reduced) 


!«!«■■  I 


IWIIMI 


K 


iSlwmiiiSuSSSimitw 

l■llA»lllll■■lvm 


klMM 
WIllBBlBI 

niiaiui 


HIV 


miiiBKii 


ukuinkiikmiaiB^kiiuMinii 


>>■■■■■« 


mmi 


SSB5mShw«mB5SB1 


invS5nwKmw8nBBu|SS 


niniiimniiuiAi 


■—W 


■wan 

■nia’i 


mmiaiw; 

■mmbmb«wi 


^SuinlSjmi 


■iiHimiiniiinini!! 


C.  LAYOUT,  GAMEFLOW 


To  begin  the  analysis,  all  the  units  involved  and  the  radar  horizons 
of  the  fleet  units  are  plotted  on  the  range-azimuth  area  of  the  chart. 

On  the  range-time  area  are  plotted  the  early  parts  of  the  attack  profile, 
combat  air  patrol  and  early  warning  aircraft.  Also  needed  is  data  con¬ 
cerning  the  performance  characteristics  of  the  units  and  the  weapons  of 
both  the  fleet  and  attack.  Additionally,  battle  plans  for  both  the  fleet 
and  attack  are  needed  in  order  to  stage  the  actual  attack  and  subsequent 
defense.  These  battle  plans  and  performance  characteristics  are  left 
entirely  to  the  user,  but  should  appropriately  reflect  what  the  user  de¬ 
sires  to  analyze.  "The  battle  plans  may  be  thought  to  consist  of  the 
orders  of  battle  and  of  standard  doctrine  and  such  information  as  might 
be  given  in  a  pre-attack  briefing."  [Ref.  3] 

The  game  progresses  as  the  interactions  between  the  different  units 
begin  to  unfold  and  information  is  "received" concerning  the  attack. 

These  interactions  are  indicated  by  the  attack  profiles  on  the  range- 
altitude  chart  intersecting  with  the  radars  of  the  fleet  units.  These 
interactions  enable  the  user  to  make  decisions  concerning  the  use  and 
deployment  of  his  forces,  provided  the  appropriate  employment  of  the 
battle  plans. 

The  examination  of  the  battle  is  completed  when  the  user  decides 
the  fleet  has  become  fully  aware  of  the  nature  of  the  attack  and  has 
brought  to  bear  any  and  all  of  the  units  he  believes  should  be  used  in 
its  defense.  At  this  point,  the  analysis  and  "second  guessing"  can  be 
done  to  try  and  determine  how  the  battle  might  have  progressed  had 
different  decisions  been  made  at  certain  points  in  the  progression  of 
events . 


5 


III.  USERS  GUIDE 


A.  STARTUP,  BUILDING  THE  DATABASE 

The  Air  Battle  Computer  model  is  designed  to  operate  on  an  APPLE 
III  microcomputer  with  one  additional  disk  drive  and  a  video  monitor. 

The  needed  software  is  stored  on  two  5  inch  floppy  disks,  labeled 
ABA.l  and  ABA. 2.  The  game  will  start  automatically  following  these 
simple  instructions: 

i)  Place  disk  labeled  ABA.l,  label  up,  in  disk  drive  1  (built  in 
drive). 

1 i )  Place  disk  labeled  ABA. 2,  label  up,  in  disk  drive  2  (external 

drive). 

ill)  Turn  video  monitor  on. 
i v )  Turn  APPLE  III  computer  on. 

The  disk  drives  will  whir  audibly,  and  shortly  thereafter  the  APPLE  III 
PASCAL  copywrite  notice  will  appear  briefly  on  the  monitor,  followed  by 
two  screens  of  very  general  Information  about  certain  aspects  of  program 
operation.  It  is  important  to  note  the  orientation  of  the  screen,  and 
that  the  figures  on  displays  are  disproportionately  large  relative  to 
the  distance  between  units. 

The  third  screen  presented  will  be  the  first  selection  menu.  Figure 
(3.1).  After  the  selection  from  the  first  menu  the  disk  drives  will 
whir  briefly  as  program  control  is  chained  to  the  programs  on  the 
second  disk.  What  follows  will  depend  on  the  menu  choice  of  the  user. 

If  option  1  was  selected,  a  screen  titled  FLEET  COMPOSITION  will  appear. 
This  screen  is  followed  by  six  others  that  present  a  general  overview 
and  specific  parameters  for  the  ships  of  the  default  database. 
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If  you  have  played  this  game  before,  then  you  may  be 

familiar  with  the  default  input  database  and/or  you 

may  have  previously  remodeled  it  to  suit  your  needs. 

Please  select  one  of  the  following  options: 

1  :  BUILD  DATABASE;  WITH  REVIEW  of  default  database. 

2  :  BUILD  DATABASE;  WITHOUT  REVIEW  ot  default  database. 

3  :  Use  the  DEFAULT  DATABASE  parameters  with  NO  REVIEW. 

4  :  Use  the  DATABASE  parameters  retained  FROM  LAST  GAME. 

Type  a  number  from  1  to  4  : 

Figure  3.1  Menu  from  Intro 

Following  the  review  of  the  fleet,  the  review  of  the  aircraft  will 
begin  with  a  screen  titled  AIRCRAFT.  The  first  screen  describes  how 
friendly  aircraft  are  deployed,  followed  by  two  screens  of  specific 
parameters  for  deployed  fighters  and  three  screens  of  specifics  on 
deployed  early  warning  aircraft.  These  six  screens  are  followed  by 
one  screen  of  specific  parameters  for  each  of  the  eighteen  attack 
aircraft.  Once  the  user  becomes  familiar  with  the  format,  these 
screens  can  be  advanced  quickly.  If  the  user  desires  to  change  some 
of  the  parameters,  these  same  values  will  be  presented  again  during 
the  process  of  changing  the  default  database. 

The  selection  menu  of  Figure  (3.2)  follows  this  review  of  the 
default  database.  For  the  novice  user  it  is  recorotended  that  selection 
1  be  chosen,  primarily  because  it  does  not  require  further  manipulation 
with  the  database  prior  to  seeing  it,  using  it  and  becoming  familiar 
with  it  during  the  game  portion  of  the  program.  Thus,  this  selection 


bypasses  a  possible  detrimental  aspect  of  the  game  for  the  novice  user, 
namely,  lengthy,  boring  and  repetitious  review  of  parameters.  After  the 
user  has  become  familiar  with  the  default  database  through  use  of  the 
game  he  is  better  able  to  decide  what  aspects  of  it  he  may  wish  to  change 
or  enhance.  After  this  selection  there  is  a  short  period  of  disk 
activity  while  the  default  database  files,  located  on  disk  number  one  are 
being  transferred  to  the  game  database  files  on  disk  number  two  and  the 
control  is  transferred  to  the  game  program. 

How  do  you  wish  to  set  up  the  players? 

1  :  Use  the  default  fleet/ship  and  aircraft  database. 

2  :  Use  the  default  fleet  and  build  your  own  aircraft. 

3  :  Use  the  default  aircraft  and  build  your  own  fleet. 

4  :  Build  your  own  fleet  and  aircraft  database. 

Type  a  number  from  1  to  4  : 


Figure  3.2  Menu  from  Startem 

If  the  user  decides  to  build  a  new  database,  he  is  given  the 
opportunity  to  add  units,  delete  units,  or  change  unit  parameters. 

This  is  done  on  a  question  and  answer  type  basis  with  the  program 
initiating  the  questions.  The  user  is  first  given  the  opportunity 
to  alter  the  ships'  database  provided  the  default  fleet  is  not  used. 

For  each  ship,  he  is  asked  if  he  wishes  to  delete  it  from  the  database. 
If  he  answers  negatively,  he  is  asked  if  he  wishes  to  change  any  of  its 

parameters.  If  he  answers  no,  he  is  asked  the  same  questions  for  the 
next  ship,  etc.  If  he  answers  positively  to  the  deletion,  he  is 
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immediately  asked  the  same  question  for  the  next  ship.  If  he  answers 
yes  to  changing  a  ship's  parameters,  he  is  shown  each  parameter  for 
that  ship  and  asked  if  he  wishes  to  change  it.  A  positive  response 
then  causes  the  program  to  ask  him  to  enter  the  new  value,  a  negative 
response  causes  the  program  to  retain  the  old  value.  In  either  case, 
the  program  progresses  to  the  next  parameter  value  and  the  process  is 
repeated.  After  all  the  ships  in  the  default  database  have  been  pre¬ 
sented,  the  user  is  asked  if  he  wishes  to  add  any  ships  to  the  data¬ 
base.  If  ships  are  added,  he  is  asked  to  enter  the  appropriate 
parameter  values. 

When  the  fleet  game  database  has  been  built,  the  user  is  given  the 
same  opportunity  to  add,  delete,  or  change  parameter  values  of  the 
attacking  aircraft.  The  screen  and  questioning  format  for  changing  the 
attack  aircraft  is  the  same  as  that  for  the  fleet  units. 

B.  PLAYING  THE  GAME 

The  first  graphic  display.  Figure  (3.3)  is  the  next  screen  presented 
to  the  user.  This  display  simply  introduces  the  shapes  that  will  be 
seen  on  the  displays  of  the  fleet  and  attack.  The  figure  for  the  fighter 
aircraft  is  used  on  both  the  fleet  display  and  the  attack  display;  however, 
the  attack  display  is  separate  and  the  user  has  the  option  of  viewing  it. 

Next  the  user  is  asked  if  he  desires  the  computer  to  step  through  the 
game  at  a  specified  time  step.  It  is  recommended  that  this  be  answered 
NO.  The  program  then  begins  to  check  for  any  radar  contacts.  This  re¬ 
quires  scanning  the  linked  lists  several  times,  which  for  the  first  few 
time  steps  causes  a  rather  lengthy  pause  in  visual  activity. 


Presented  below  are  the  figures  that 
will  be  used  in  the  graphic  displays 

The  actual  position  of  the  unit  shown 
will  be  the  upper  left  point  of  figure. 

SHIPS  AIRCRAFT 

FIGHTER  AEW 

*r  -£  HH 

RADAR  CONTACTS 

AEW  FIRE  CNTRL  AIR  INTCPT  SHIP  SRCH 

a  x  +  o 


Figure  3.3  Figures  Used  in  Graphics 

During  this  pause  the  program  provides  a  visual  indication^  that  it 
is  still  operating.  The  first  display  of  the  fleet  is  then  presented 
with  the  center  of  the  screen  cluttered  with  several  units  drawn  on 
top  of  each  other.  Along  the  top  of  the  screen  appears: 

U(pscale  /  D(ownscale  /  R(ecenter 
Along  the  bottom  of  the  screen  are  a  variable  length  line  which  por¬ 
trays  10  nautical  miles  on  the  screen  scale,  and  below  that: 

C(ontinue  Time  :  xxx 

The  time  is  the  current  game  time,  in  minutes.  By  pressing  "D"  or  "U", 
the  user  can  downscale  or  upscale  the  display.  A  few  downscales  at 
this  point  will  begin  to  display  the  units  on  a  less  cluttered  scale. 
The  user  can  recenter  the  display  on  any  unit  by  typing  "R"  and  the 

Vhe  symbol  "a>"  is  printed  diagonally  across  the  screen  from  the 
upper  left  comer  of  the  screen. 
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number  of  the  unit.  A  unit  may  not  appear  on  the  screen  due  to  the 
scale  and  the  X-Y  values  of  the  screen  center.  The  user  enters  "C" 
when  he  is  familiar  with  this  view  of  the  force  layout  and  is  ready 

to  continue  the  program.  The  user  is  then  asked  if  he  wishes  to  see 

the  attack;  if  so,  it  is  displayed  in  the  same  fashion  as  the  fleet. 

Figures  (3.4)  and  (3.5)  are  examples  of  the  screen  display  of  the 

fleet.  Figure  (3.4)  exhibits  the  initial  display,  downscaled  a  few 
times,  and  Figure  (3.5)  exhibits  a  later  display  with  several  radar 
contacts  and  other  game  consequences. 


U(pscale  /  D(ownscale  /  R(ecenter 


Figure  3.4  Initial  Fleet  Display 


: - :  ==>  io  NM 

C(ontinue  Time  :  90 

Figure  3.5  Later  Fleet  Display 

The  next  presentation  is  the  menu  for  selecting  status  reports. 
Figure  (3.6).  These  reports  are  amplifying  information  about  the 
fleet  display.  For  example,  the  fighter/interceptor  report  contains 
the  unit  number  corresponding  to  the  number  on  the  graphic  display, 
and  the  aircraft's  coordinate  position,  position  relative  to  the 
carrier,  heading/course,  velocity,  the  remaining  minutes  of  endurance 
and  the  number  of  missiles  remaining.  The  early  warning  aircraft 
report  has  exactly  the  same  layout  and  information  as  the  fighter/ 
interceptor  with  the  exception  AEW  aircraft  do  not  carry  missiles.  The 
ship  report  indicates  the  unit  number,  ship  type,  coordinate  position. 
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Please  select  an  option  according  to  which  status 
of  forces  report  you  wish  to  peruse. 

1  :  Ships. 

2  :  Fighter  /  interceptor. 

3  :  Early  warning  aircraft. 

4  :  Radar  contacts. 

Q  :  Quit. 

NOTE  ::  COORDINATE  POSITIONS  are  SCALED  :  1  =  10  NM. 

After  your  selection  you  will  be  presented  with 
specifics  and  status  information  concerning  your 
selection.  You  will  then  be  returned  to  this 
menu  where  you  may  make  another  selection  or 
repeat  a  previous  selection. 


Figure  3.6  Status  Reports  Menu 


course  and  speed,  the  number  of  long  and  short  range  missiles  still 
onboard,  and  the  number  of  missile  hits  and  bomb  hits.  The  radar  re¬ 
port  contains  the  contact  number,  coordinate  position,  the  contacting 
radar  type,  contacting  unit's  number,  and  if  the  contact  has  been 
killed  on  this  step. 

After  studying  these  reports,  the  user  is  presented  the  oppor¬ 
tunity  to  redeploy  or  move  the  friendly  units.  The  next  menu.  Figure 
(3.7),  allows  the  user  to  specify  how  the  friendly  units  are  to  move 
during  the  next  time  step.  The  selections  allow  the  user  to  launch  an 
aircraft  by  selecting  aircraft  type,  and  entering  the  desired  heading, 
velocity  and  altitude.  The  user  can  initiate  the  recovery  of  an  air¬ 
craft.  For  example,  if  a  fighter  was  out  of  missiles,  or  was  getting 
"low"  in  endurance,  by  selecting  'recover  a  fighter'  the  airborne 
fighters'  unit  numbers  and  positions  relative  to  the  carrier  are 
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Please  choose  your  desired  course  of  action  : 

1  :  Move  a  fighter/ interceptor. 

2  :  Launch  a  fighter/interceptor. 

3  :  Recover  a  fighter/interceptor. 

4  :  Move  an  AEW  aircraft. 

5  :  Launch  an  AEW  aircraft. 

6  :  Recover  an  AEW  aircraft. 

7  :  Move/manuever  an  individual  ship. 

8  :  Alter  the  PIM  /  SOA  of  the  fleet. 

D  :  Review  the  display  of  forces. 

R  :  Review  the  status  of  forces. 

Q  :  Quit. 

After  your  selection,  you  will  be  asked  for  specifics 
about  your  selection,  then  you  will  be  returned  to 
this  menu  where  you  may  make  another  selection,  repeat 
a  selection  for  another  aircraft/ship  or  stop. 


Figure  3.7  Nextevents  Menu 


presented  individually .  For  each  aircraft,  the  user  is  asked  if  he 
wishes  it  recovered.  He  simply  answers  yes  for  the  aircraft  he  wishes 
to  recover;  if  he  answers  no  to  each  fighter,  then  the  program  returns 
to  the  selection  menu.  When  a  recovery  is  initiated,  the  program 
directs  the  aircraft  towards  the  carrier.  When  the  "recovered"  air¬ 
craft  gets  within  five  nautical  miles  of  the  carrier,  an "instant 
landing"  is  performed.  The  user  can  alter  the  heading,  velocity  or 
altitude  of  an  airborne  aircraft  or  he  can  change  the  course  and  speed 
of  the  fleet  or  of  an  individual  ship  of  the  fleet.  He  can  also  review 
the  force  displays  or  status  reports  from  this  menu. 

After  making  all  desired  changes,  the  user  is  shown  the  current 
game  time,  the  default  game  end  time,  and  is  asked  if  he  wishes  to  stop 
the  program.  If  the  program  is  not  stopped,  he  is  asked  to  enter  the 


24 


next  time  step  length.  Time  steps  do  not  have  to  be  equal  in  length  or 
any  specified  minimum  or  maximum  length.  However,  if  a  step  of  greater 
than  60  minutes  is  entered,  the  program  asks  the  user  to  verify  the 
entry.  The  time  step  must  be  entered  in  minutes.  After  this  entry, 
the  entire  game  process  is  then  repeated  and  the  user  will  see  the 
same  visual  indications  of  program  activity  while  the  program  checks 
for  radar  contacts.  This  is  followed  by  the  next  display  of  the  fleet. 

If  any  movements  were  ordered  from  the  event  menu,  the  units  will  be 
displayed  at  appropriate  relative  positions,  and  any  radar  contacts,  if 
made,  will  also  be  displayed. 

The  program  operates  on  a  time  step  structure.  This  is  important 
to  note  because  all  calculations  are  performed  at  the  end  of  each  time 
step.  The  time  step  increment  is  supplied  by  the  user.  No  calculations 
are  made  for  interactions  that  would  have  occurred  between  time  steps. 
Therefore,  when  interactions  between  the  forces  have  begun,  it  is 
recommended  that  time  steps  of  no  more  than  5  minutes  be  used.  Using 
the  default  database,  the  first  radar  contacts  are  made  after  approximately 
30  game  minutes  and  interactions  will  begin  after  approximately  45  game 
minutes. 


I-.'. 


IV.  AIR  BATTLE  COMPUTER  MODEL 

"Programs  that  use  procedures  well  are  generally 
far  easier  to  read,  easier  to  understand,  easier 
to  change,  and  easier  to  get  working."  [Ref.  4, 

P.  90J 

A.  INTRODUCTION 

This  chapter  and  the  next  explain  the  program  execution.  This 
chapter  is  written  in  four  sections.  The  first  will  list  and  explain 
the  assumptions  and  give  a  brief  overview  of  the  program.  The  next 
states  a  few  arguments  for  the  programming  language  choice.  This  is 
followed  by  a  description  of  the  disks  and  the  files  residing  on  them. 
The  last  section  explains  the  organization  and  creation  of  the  database, 
including  how  the  default  database  is  formed  and  altered. 

B.  GENERAL  PROGRAM  OPERATION 

1 .  Assumptions  of  the  Program 

This  program  was  designed  to  be  as  similar  to  the  Air  Battle 
Analyzer  as  possible;  however,  there  were  several  simplifying  assump¬ 
tions  that  were  required.  Some  of  these  assumptions  were  necessitated 
by  memory  space  limitations  in  the  actual  game  portion  of  the  program, 
as  written  for  the  APPLE  III.  The  assumptions  are; 

i)  default  database  used, 

ii)  one-sided  play, 

iii)  radar  detections  and  missile  firings, 

i v )  cartesian  coordinate  system. 


26 


v)  instantaneous  manuevers, 

vi )  time  step  processing. 

The  following  paragraphs  briefly  describe  each  assumption. 

A  default  database  has  been  supplied  with  the  program.  This 
was  done  to  allow  the  novice  player  to  use  the  program  immediately, 
without  a  lot  of  foreplanning  concerning  characteristics  and  battle 
plans.  The  more  experienced  player  can  easily  change  this  database. 

By  altering  the  database,  the  player  can  see  the  differences  these 
changes  make  in  the  outcome  of  the  game. 

The  attack  battle  plan  is  written  into  the  program,  i.e., 

2 

the  attack  performs  only  preplanned  manuevers.  This  was  done  in 
order  to  hasten  the  play  of  the  game  as  well  as  to  keep  it  simple 
for  the  user.  This  allows  the  user  to  concentrate  on  the  fleet’s 
battle  plan  without  the  distraction  of  assuring  the  attack  follows 
his  plan.  Also,  this  frees  the  user  to  experiment  with  many  battle 
plans  against  a  comnon  attack  profile. 

The  default  attack  force  consists  of  eighteen  aircraft  located 
approximately  500  NM  East  of  the  fleet.  The  force  is  formed  in  six 
wings  of  three  aircraft.  All  of  the  attack  aircraft  begin  the  game  on 
a  heading  of  270.  The  first  three  aircraft  begin  at  20,000  feet  alti¬ 
tude  and  the  rest  are  at  10,000  feet.  The  first  three  and  the  last 
six  aircraft  begin  the  game  at  350  knots  and  the  remaining  aircraft 
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These  manuevers  are  preplanned  in  the  sense  that  they  occur 
after  certain  time  periods.  The  attack  "flight"  profiles  may  change 
from  game  to  game  because  of  different  attack  databases  or  different 
time  step  lengths  used  throughout  the  game. 


start  at  400  knots.  As  the  game  time  exceeds  multiples  of  20  minutes, 
each  aircraft's  heading  is  altered  towards  the  carrier.  When  the  first 
aircraft  gets  within  200  NM  of  the  carrier  the  altitude  of  each  air¬ 
craft  is  changed  to  200  feet.  When  the  game  time  exceeds  120  minutes 
the  remaining  aircraft  begin  their  retreat  at  10,000  feet,  heading  090 
at  450  knots. 

The  attack  profile  portion  of  the  program  is  contained  in  the 
ATKUPDATE  procedure  which  resides  on  the  Thesis3b  file.  This  profile  is 
programmed  in  a  way  that  should  be  easy  to  change.  Most  of  the  parameters 
that  are  necessary  to  create  the  profile  are  written  as  constants  in  the 
declarations  section  of  the  game  program,  residing  on  file  Thesis3. 

Further  detail  on  this  procedure  can  be  found  in  Chapter  5,  with 
possibilities  of  expansion  discussed  in  Chapter  6. 

Radar  detection  of  an  attack  aircraft  occurs  when  it  comes  within 
a  certain  finite  range  of  the  friendly  unit.  That  range  is  the  lesser  of 
the  maximum  radar  range  or  the  radar  horizon,  a  function  of  the  aircraft(s) 
altitude.  In  order  for  a  unit,  attack  or  friendly,  to  fire  a  missile  or 
drop  a  bomb,  the  unit  must  have  an  available  missile  (bomb)  and  the 
target  must  be  within  minimum  and  maximum  missile  range.  For  air  inter¬ 
cept  radars,  air-to-air  missiles,  and  air-to-surface  missiles,  the  target 
must  also  be  within  the  detection/firing  envelope. 

The  playing  area  is  an  X-Y  cartesian  coordinate  type  layout,  with 
positioning  of  aircraft  and  ships  referenced  to  their  X-Y  positions  and 
altitudes.  The  X-Y  axes  are  measured  in  nautical  miles  and  altitudes  are 
measured  in  feet.  Altitude  changes,  and  turns  are  done  instantaneously 
rather  than  gradually  over  some  time  and  distance. 
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The  game  portion  of  the  program  uses  a  time  step  structure 
vice  a  next  event  structure.  This  method  was  chosen  because  it  allows 
the  operator  to  increment  the  battle  scenario  at  a  pace  of  his  own 
choice.  Also,  this  structure  provided  a  more  convenient  approach  to 
the  interactive  aspect  of  the  program.  A  combination  time  step,  next  . 
event  structure  would  provide  a  more  realistic  methodology;  however, 
this  project's  completion  date  necessitated  the  strict  time  step 
approach.  The  major  drawback  to  this  approach  is  that  all  interac¬ 
tions  between  the  fleet  and  the  attack  are  done  at  each  time  increment. 
This  necessarily  implies  that  a  lengthy  time  step,  once  interactions 
between  the  opposing  forces  have  begun,  might  cause  a  missed  interaction, 
when  in  fact  one  certainly  would  have  occurred. 

2.  Program  Operation,  Primary  Chain 

The  Air  Battle  computer  program  is  composed  of  four  distinct 
operational  units  that  are  chained  together  such  that  program  flow 
passes  from  one  logical  stage  of  operation  to  another.  The  four  units 
are  depicted  in  Figure  (4.1)  in  a  simple  flow  diagram.  These  units 
are  actually  four  distinct,  separately  compiled,  program  codefiles. 

The  APPLE  library  unit  CHAINSTUFF  was  used  as  a  mechanism  for  the 
chaining  of  the  programs.  The  chaining  is  accomplished  by  declaring, 
at  the  start  of  the  current  program,  the  filename  of  the  program  codefile 
that  is  to  be  executed  when  the  current  program  concludes. 

CHAINSTUFF  also  provides  a  construct  that  allows  a  string 
variable  to  be  passed  between  the  programs,  thus  permitting  a  very 
convenient  structure  to  allow  information  obtained  in  one  program  to 
be  referenced  in  the  next. 
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Figure  4.1  Program  Chain 

This  mechanism  is  of  primary  importance  in  the  sequence 
control  of  an  interactive  computer  program,  i.e.,  how  the  user 
directs  the  sequence  of  program  operations.  The  "dialogue"  or 
sequence  of  exchanges  between  the  user  and  the  program  is  the  user's 
tool  for  this  control.  Ramsey  and  Atwood  [Ref.  5]  identify  eight 
general  dialogue  types,  of  which  this  program  uses  two  that  require 
little  or  no  training: 

i)  question  and  answer, 

ii)  menu  selection. 

These  two  choices,  specifically  the  first,  affect  other  as¬ 
pects  of  an  interactive  computer  program,  namely  the  data  entry. 

Further  detail  on  this  area  of  the  program  will  be  discussed  in  the 
section  on  building  the  database. 
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t.  Individual  Programs,  Briefly 

Intro  (file  ThesisO),  the  "turnkey"  program,  is  a  short 
initialization  program  that  presents  the  user  introductory  informa¬ 
tion  pertaining  to  the  operation  of  the  program.  It  also  provides 
a  notification  of  certain  aspects  of  the  program  execution.  It  con¬ 
tains  the  initial  option  selection  menu  as  well.  From  this  selection, 
control  passes  to  one  of  the  other  three  programs. 

Startem  (file  Thesisl)  is  executed  unless  the  fourth  option 
(use  last  game's  database)  is  selected  from  Intro.  This  program 
presents  the  parameters  established  in  the  default  database.  After 
the  review,  the  next  selection  menu  is  presented  to  allow  the  user  to 
select  which  of  the  main  areas  of  the  default  database  he  may  wish  to 
change  or  retain.  The  option  selected  from  this  menu  determines  what 
is  done  in  Changem  (file  Thesis2),  the  program  that  builds  the  game 
database. 

Changem  is  the  program  in  which  the  user  is  presented  the 
opportunity  to  add  or  delete  units,  or  change  parameters  of  the  units 
in  the  fleet  or  attack.  The  user  first  is  asked  if  he  wishes  to  re¬ 
tain  a  unit;  if  he  chooses  to  do  so,  he  then  is  asked  if  he  wishes 
to  change  any  of  its  parameters.  If  he  answers  positively  to  this, 
he  is  presented  with  each  of  the  parameters  individually  and  asked 
if  he  wishes  to  change  it;  if  so,  he  is  asked  to  enter  the  new  value. 

Abagame  (file  Thesis3)  is  the  actual  game  program.  This  pro- 

•t. 

granT  reads  the  game  database  built  in  Changem  and  forms  linked  lists 
of  the  records,  separating  the  aircraft  records  into  an  "attack"  list 
and  an  "air"  list.  It  forms  and  displays  the  graphic  figures,  then 


31 


goes  into  a  loop  for  the  manipulations  of  the  game  for  each  time 
step. 

C.  THE  LANGUAGE,  PASCAL 

"The  idea  of  separating  a  program  into  general  procedural 
units  that  operate  on  data,  and  then  establishing  communi¬ 
cation  between  the  units  by  passing  data  structures  back 
and  forth  is  the  essence  of  good  computer  programming.  A 
language  like  PASCAL  gives  you  a  good  opportunity  to  de¬ 
velop  this  strategm  since  PASCAL  provides  both  procedural 
subunits  and  a  ]arge  assortment  of  data  structuring  techniques." 
[Ref.  4,  p.  274J 

PASCAL  was  chosen  as  the  programming  language  for  several  reasons. 
First,  the  languages  the  APPLE  III  computer  supports  limited  the  choice 
to  either  BASIC  or  PASCAL.  Second,  the  expected  length  of  the  program 
necessitated  a  choice  that  would  provide  a  document  that  could  be 
easily  read  and  easily  changed.  Third,  the  general  nature  of  PASCAL 
provides  a  natural  top-down  structuring  of  a  program. 

Primarily  PASCAL  is  much  easier  to  read  and  understand  than  BASIC. 
This  is  important  if  a  program  may  be  changed  at  a  future  time,  by 
either  the  original  or  some  other  author.  PASCAL  is  much  better 
suited  to  lengthy  programs  than  BASIC  due  to  the  procedural  subunits 
available  and  the  ease  in  which  a  program  is  broken  down  into  those 
units.  PASCAL  naturally  eases  the  programmer  into  top-down  development 
techniques. 

There  are  several  aspects  of  APPLE  III  PASCAL  that  lend  themselves 
to  the  memory  space  problems,  some  positively,  some  negatively.  One 
option  of  the  APPLE  III  PASCAL  system  seemed  to  have  very  promising 
attributes  to  the  memory  space  problem.  The  reference  manuals  indicate 
the  system  allows  the  program  to  control  what  library  units  will  be 


"loaded"  into  the  computer  memory  by  the  compiler  options  "NOLOAD"  and 
"RESIDENT".  Without  these  options,  all  library  units  “used"  by  the 
program  are  loaded  into  memory  at  the  start  of  execution,  thus  reducing 
memory  available  for  the  program.  However,  with  these  options,  the 
program  is  supposed  to  be  able  to  control  when  a  unit  is  "loaded"  into 
memory,  thus  a  unit  can  be  "resident"  only  when  it  is  needed  and  not 
resident  otherwise.  The  author  was  able  to  get  this  option  working 
for  all  but  the  graphics  unit,  PGRAPH.  Therefore,  unfortunately,  it 
was  not  included  in  the  program. 

Another  APPLE  III  PASCAL  characteristic  that  is  similar  to  the 
"noload"  option  is  program  segmentation.  A  program  can  use  15  seg¬ 
mented  procedures,  which  are  loaded  into  memory  only  when  they  are 
active.  This  aspect  was  used  in  the  Abagame  program,  and  indeed  was 
essential . 

Still  another  area  of  UCSD  PASCAL  that  suggested  flexibility  with 
memory  space  allocation  was  the  use  and  reuse  of  memory  for  dynamic 
linked  lists.  However,  the  method  the  APPLE  III  uses  is  not  as 
flexible  and  therefore  was  not  as  useful  as  was  hoped.  The  computer 
does  not  "dispose"  of  deleted  records  on  an  individual  basis  but 
rather  they  are  "disposed"  in  a  block  of  consecutively  linked  records. 
This  aspect  was  indeed  useful,  but  it  was  not  as  flexible  as  one  that 
would  allow  the  reuse  of  memory  space  occupied  by  a  single  dynamic 
variable  after  "disposal". 

D.  FILE  DESCRIPTIONS,  DISK  ORGANIZATION,  EXECUTION  TIME 

1 .  Boot  Disk,  ABA.l 

Included  on  the  Boot  Disk  are  all  the  files  needed  to  boot  the 
APPLE  Ill's  Sophisticated  Operating  System  (SOS)  files,  sos. kernel. 
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sos.interp,  and  sos. driver  as  well  as  the  PASCAL  files  system. pascal 
and  system. mi scinfo.  These  five  files  are  needed  to  boot  the  PASCAL 
system.  The  only  drivers  supported  in  the  sos. driver  file  are  the 
CONSOLE  and  GRAPHICS  drivers.  Memory  space  limitations  in  the  game 
portion  of  the  program  were  the  reason  no  other  drivers  were  supported 
in  the  sos. driver  files.  These  five  files  occupy  165  blocks  on  the 
disk.  Additionally,  the  system. library  codefile,  the  system. startup 
codefile  and  the  default  database  reside  on  the  Boot  disk. 

The  system. library  occupies  70  blocks  and  contains  the  APPLE 
library  units,  APPLESTUFF,  CHAINSTUFF,  L0NGINTI0,  PASCALIO,  REALMODES, 
TRANSCEND,  and  PGRAPH.  The  system. library  also  contains  the  unit 
THESISTUFF,  in  which  reside  several  procedures  designed  specifically 
for  use  in  each  of  the  Air  Battle  Analyzer  programs.  The  type  declara¬ 
tions  needed  in  each  of  the  programs  are  also  in  the  Thesi stuff  unit. 
READINT  and  a  slightly  modified  version  of  it,  READREAL,  were  obtained 
in  an  article  written  by  Edward  Heyman  [Ref.  6].  The  system. startup 
codefile  is  the  name  given  to  the  codefile  of  the  Thesi sO  text  file.3 
This  is  the  short  introductory  program  with  the  first  option  selection 
menu.  This  file  occupies  8  blocks  on  the  disk.  The  last  two  files  on 
the  boot  disk  are  the  files  containing  the  default  database,  together 
they  occupy  5  blocks. 

2.  Second  Disk,  ABA. 2 

The  files  residing  on  the  second  disk  are  the  last  three  of  the 
program  codefiles,  Thesisl,  Thesis2,  Thesis3,  and  the  Thesis3.1ib(rary) 


3This  is  a  naming  convention  on  the  APPLE  III  for  a  "turnkey"  program, 
a  program  that  executes  immediately  after  the  system  is  booted  up. 


occupying  17,  25,  43,  and  11  blocks  respectively.  As  explained 
earlier,  Thesisl  is  the  codefile  for  the  STARTEM  program,  Thesis2 
is  the  codefile  for  CHANGEM  and  Thesis 3  the  codefile  for  ABAGAME. 

Also  residing  on  this  disk  are  the  game  database  files  created  in 
the  CHANGEM  program,  and  the  "outfile"  database  files  that  are 
created  in  ABAGAME.  These  four  database  files  will  have  varying 
lengths,  depending  on  the  changes  instituted  in  CHANGEM  and  the 
actual  play  of  the  game. 

There  are  three  units,  MAKEFORMS,  GRAFSTUFF,  and  BEARINGS 
on  the  Thesis3. library  file.  MAKEFORMS  forms  the  packed  arrays  that 
represent  the  forms  shown  in  the  graphic  displays.  GRAFSTUFF  has 
the  UPSCALE,  DOWNSCALE,  and  RECENTER  procedures  used  in  the  graphic 
displays.  BEARINGS  has  the  procedures  that  get  distances  between  two 
coordinate  positions,  DISTANCE;  bearing  from  one  position  to  another, 
DEGREES;  and  a  new  coordinate  position  after  a  time  step  has  occurred, 
GETNEWXY . 

3.  Playing  Time 

This  program  can  be  executed  in  two  stages; 

i)  review  and  build  a  database, 

ii)  and  play  the  game. 

To  do  a  thorough  job  of  each  entails  about  30  to  45  minutes  per  stage. 
When  a  user  builds  a  database,  it  is  retained  on  the  second  disk  as 
game  database  files.  These  files  are  not  altered  by  the  game  program. 
Therefore,  this  game  database  can  be  used  as  often  as  desired.  For 
each  separate  game,  the  player  can  simply  alter  his  deployment  of 
forces  and/or  change  time  step  lengths  to  view  a  new  battle  unfold. 


With  each  execution,  of  course,  the  user  becomes  more  familiar  with 
the  required  key  strokes  necessary  to  accomplish  his  goals  and  thus 
the  playing  time  decreases.  Likewise,  after  building  a  few  databases 
for  the  game,  the  user  again  becomes  familiar  with  the  key  strokes 
required  and  thus  can  accomplish  the  first  portion  in  less  time. 

E.  ORGANIZATION  AND  CREATION  OF  THE  DATABASE 
1 .  Filemaker  and  the  Default  Database 

Figures  (4.2)  and  (4.3)  illustrate  the  record  types  used  in 
the  program;  Figure  (4.2)  is  the  ship  record  and  Figure  (4.3)  is  the 
aircraft  record.  These  figures  illustrate  the  variables  contained  in 
each  record,  the  range  of  each  variable,  and  the  meaning  of  ambiguous 
variable  names.  Note  that  the  aircraft  record  is  a  multiple  nested 
variant  record.  An  aircraft  can  be  an  "enemy"  or  "frend"  and  if  it 
is  a  "frend",  it  can  be  either  "intcpt"  (interceptor/fighter)  or  "aew" 
(early  warning  aircraft). 

Filemaker  is  the  program  that  creates  the  default  database  by 
initializing  the  variables  in  each  record.  This  program  defines  the 
number  and  types  of  units  involved  and  then  assigns  parameter  values 
to  each  unit.  If  a  new  default  database  is  desired,  the  program 
Filemaker  can  be  used  to  form  it.  The  user  would  need  to  edit  the 
text  version  of  Filemaker  and  change  whatever  aspect  of  the  file  is 
desired.  After  saving  this  textfile,  he  would  need  to  recompile  the 
new  Filemaker  text  and  then  execute  the  compiled  code  to  create  the 

new  default  database  files.  The  filenames  of  the  default  database  are 
SHIPINFILE  and  AIRINFILE.  The  parameter  values  assigned  to  the  units 
in  the  default  database  exhibit  a  close  resemblance  to  the  parametric 
values  suggested  in  the  manual  game's  example. 


link  :  shipntr; 
class  :  shiptype; 
num  :  0..255; 
xpos  :  real  ; 
ypos  :  real  ; 
pim  :  0..359; 
soa  :  0..50; 
fcrng  :  0..255; 
ssrng  :  0..255; 
lrsam  :  0..255; 
srsam  :  0..255; 
lrmpk  :  real  ; 
srmpk  :  real  ; 
srmin  :  0..255; 
srmax  :  0. .255; 
irmin  :  0..255; 
lrmax  :  0..255; 
mbits  :  0. .255; 
bhits  :  0..255; 
sunk  :  boolean; 
end; 

Variable  Meanings: 

link  :  A  pointer  variable  used  in  the  linked  lists. 

class  :  A  program  defined  type  (cv,  dest,  crsr). 

num  :  The  unit  number,  assigned  in  Abagame. 

xpos  :  The  X  coordinate  position  of  the  unit. 

ypos  :  The  Y  coordinate  position  of  the  unit. 

pim  :  Course/Heading  of  the  unit. 

soa  :  Speed  of  the  unit. 

fcrng  :  Fire  control  radar  maximum  range. 

ssrng  :  Ship  search  radar  maximum  range. 

lrsam  :  Number  of  long  range  SAM's. 

srsam  :  Number  of  short  range  SAM's. 

lrmpk  :  Long  range  missiles'  probability  of  kill. 

srpmk  :  Short  range  missiles'  probability  of  kill. 

srmin  :  Short  range  missile  minimum  target  distance. 

srmax  :  Short  range  missile  maximum  target  distance. 

Irmin  :  Long  range  missile  minimum  target  distance. 

lrmax  :  Long  range  missile  maximum  target  distance. 

mbits  :  Number  of  missile  hits  endured. 

bhits  :  Number  of  bomb  hits  endured. 

sunk  :  True  if  (mbits  +  bhits)  GT  a  program  constant. 


Figure  4.2  Ship  Record 


aircraft  ■  record 

link  :  alrpntr; 

nun  :  0..255; 

xpos  :  real  ; 

ypos  :  real  ; 

alt  :  0.. 30000; 

aznth  :  0..360; 

velcty  :  0. .2000; 

Iff  ifftype; 

case  Ifftype  of 
enemy  : 

(  asm  :  0..31; 

asmrag  :  0..2S5; 

asmenv  :  0. .359; 

asmpk  :  real  ; 

bomb  :  0..31; 

frend  :  :  >■ 

(  acfmd  :  fmdtype; 

case  frndtype  of 
Intcpt  : 

{  Intndr  :  0..255; 

almg  :  0..255; 
alenv  :  0..359; 
aam  :  0. .31; 
aammg  :  0..255; 
aamenv  :  0..359; 
aampk  :  real  ); 
aew 

(  aewndr  :  0..255  ; 

aewrag  :  0..255  )); 
end;  record 

Variable  Meanings: 

link  :  A  pointer  variable  used  In  the  linked  lists, 

nun  :  The  unit  number,  assigned  In  Abagane. 

xpos  :  The  X  coordinate  position  of  the  unit, 

ypos  :  The  Y  coordinate  position  of  the  unit, 

alt  :  Altitude  of  theunlt. 
aznth  :  Course/Heading  of  the  unit, 
velcty  :  Ground  speed  of  the  unit. 

Iff  :  A  program  defined  type  (enemy,  frend). 

asm  :  Number  of  Alr-to-Surface  missiles. 

asmmg  :  Air-to-Surface  missile  range. 

asmenv  :  Alr-to-Surface  missile  firing  envelope. 

asmpk  :  Alr-to-Surface  missile  probability  of  kill. 

bomb  :  Number  of  bombs 

bombpk  :  Bombs'  probability  of  kill. 

acfmd  :  A  program  defined  type  (intcpt,  aew). 

Intndr  :  Interceptors'  airborne  endurance, 
almg  :  Air  intercept  radar  maximum  range, 
alenv  :  Air  intercept  radar  detection  envelope, 
aam  :  Number  of  Air-to-Air  missiles, 
aammg  :  Air-to-Air  missile  range, 
aamenv  :  Air-to-Air  missile  firing  envelope, 
aampk  :  Air-to-Air  missile  probability  of  kill, 
aawndr  :  Early  warning  aircraft  airborne  endurance, 
aewmg  :  Early  warning  radar  maximum  range. 

Figure  4.3  Aircraft  Record 
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.  Organization  and  Format 


As  mentioned  earlier,  Startem  is  the  program  in  which  the 
default  database  is  presented,  and  Changem  is  the  program  in  which 
the  default  database  is  used  to  form  the  game  database.  Figure  (4.4) 
is  a  partial  flow  chart  for  Startem,  where  the  entry  flow  path  is  de¬ 
termined  by  the  selection  from  the  first  menu.  The  next  selection 
menu  provides  a  more  detailed  selection  of  how  the  game  database  is 
to  be  formed.  This  is  done  in  the  GAMECHOICES  procedure.  Figure  (4.5) 
is  a  general  flow  chart  for  Changem,  where  the  entry  flow  path  is  de¬ 
termined  by  the  selection  from  the  second  menu.  Notice  it  is  not 
always  necessary  to  pass  through  all  the  programs.  From  Intro  it  is 
possible  to  bypass  most  of  Startem  or  to  bypass  Startem  and  Changem. 

Further,  it  is  possible  to  bypass  Changem  from  Startem.  Actually, 
the  only  time  a  program  is  entirely  skipped  is  when  the  operator 
chooses  to  play  with  a  previously  established  database,  thus 
skipping  Startem  and  Changem. 

3.  Startem,  Thesisl 

The  primary  purpose  of  this  program  is  to  present  the  parameters 
of  the  default  database;  therefore,  the  largest  portion  of  this  program 
does  just  that.  However,  the  entire  program  is  executed,  i.e.,  the  de¬ 
fault  database  is  reviewed  only  if  the  first  option,  'build  a  database 
with  review',  is  selected  from  the  menu  in  Intro.  If  the  third  option, 

'use  default  database',  is  selected,  this  program  simply  transfers  the 
default  database  files  to  the  game  database  files.  If  the  second  option, 
'build  database,  no  review',  is  selected,  this  program  presents  the  second 
selection  menu,  which  provides  a  detailed  selection  of  how  the  game  database 
is  to  be  built. 


Figure  4.4  Startem  Flowchart 


GAMECHOICE  menu  selection  from  STARTEM 


Figure  4.5  Changem  Flowchart 


The  methodology  of  the  review  is  similar  to  the  chaining  of  the 
programs,  except  that  this  is  from  an  individual  program  level.  The 
main  program  calls  the  first  procedure  which  starts  a  chain  through  four 
procedures.  The  order  of  presentation  of  the  default  database  is; 

i)  A  general  overview  of  the  ships,  including  aircraft  on  the 
carrier,  type  and  number  of  missiles,  and  type  of  radars. 

ii)  A  review  of  the  Surface-to-Air  missile  parameters,  and  the 
ships'  radar  maximum  ranges. 

iii)  A  review  of  each  ship's  parameters,  including  position, 
course,  and  speed. 


iv)  A  general  overview  of  the  aircraft  involved  and  how  they 
are  deployed. 


v)  A  review  of  individual  aircraft  parameters  including 
position,  altitude,  course,  groundspeed,  armament,  type 
radars,  etc.  Only  airborne  aircraft  are  listed  in  this 
review. 

4.  Changem,  Thesis2 

As  indicated  in  Figure  (4.5),  Changem  is  where  the  game  data¬ 
base  is  built.  The  presentation  of  the  variables  available  for  alter¬ 
ation  is  done  in  the  same  order  as  it  was  in  Startem.  If  choice  four, 
'build  fleet  and  aircraft',  was  selected  from  the  second  menu,  then  the 
ordering  is  virtually  identical;  otherwise,  there  is  some  distortion  of 
the  ordering. 

"Careful  attention  to  the  way  the  user  sees  a  program  - 
the  so-called  'user  interface'  -  ...  makes  the  difference 
between  programs  that  are  friendly,  forgiving,  conversa¬ 
tional,  and  humane  and  others  that  are  hostile,  rigid, 
obscure,  and  machine-like."  [Ref.  4,  p.  138j 

There  has  evolved  recently  some  general  ideas  as  to  the  nature 
of  interactive  computer  models,  and  how  they  should  be  designed  with 
respect  to  the  user.  [Ref.  7]  Several  of  these  ideas,  specifically 
feedback,  consistency  and  simplicity,  and  how  they  have  been  incorporated 
in  Changem  are  discussed  below. 

The  user  needs  to  be  provided  feedback  for  his  actions.  It  is 
natural  for  the  user  to  need  to  know  that  his  actions  have  been  under¬ 
stood  and  accepted.  This  feedback  should  be  obvious  and  displayed  where 
the  user  expects  to  see  it.  Changem  echoes  all  user  inputs  on  the  screen 
directly  left  of  where  the  cue  to  enter  has  occurred. 

This  presents  another  point,  consistency.  The  user  should  not 
be  required  to  guess  where  the  cues  will  appear  or  where  his  feedback 
will  occur.  This  consistency  should  be  carried  over  from  one  aspect  of 
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a  program's  operation  to  the  next.  This  idea  is  evident  throughout 
the  program  where  a  response  to  a  program  generated  question  is 
required.^ 

Simplicity.  The  simpler  a  program  is  to  use  the  more  it  will 
be  used.  This  also  allows  the  more  inexperienced  user  to  use  it 
correctly,  competently  and  constructively. 

As  mentioned  earlier,  a  primary  concern  of  an  interactive 
computer  program  is  the  data  entry.  Toward  this  end  Changem  and  all 
other  parts  of  the  "whole"  program  use  a  consistent  data  entry  process. 

In  each  instance  the  following  sequence  of  steps  occur: 

i )  prompt , 

ii)  provide  feedback, 

iii)  perform  error  check, 

iv)  accept  data  entry. 

A  prompt  is  provided  for  each  data  entry.  It  is  always  as  brief 
and  as  specific  as  possible.  If  the  entry  is  to  change  a  default  value, 
this  value  is  presented.  If  there  is  a  length  limit,  the  length  of  the 
entry  is  indicated  by  an  underline  of  appropriate  length.  On  entering 
the  data,  whether  it  is  a  Yes/No  response  or  a  numerical  data  entry, 
feedback  is  presented,  immediately  to  the  left  of  the  prompt  line. 

An  error  check  of  the  entry  is  performed.  If  the  entry  re¬ 
quires  a  single  key  stroke,  as  in  answering  a  Yes/No  question,  then 
for  an  illegal  response  the  entry  is  not  accepted  and  the  user  is  asked 
to  reenter  the  response  via  an  error  message  that  again  reflects  what 

^One  aspect  of  program  consistency  was  altered  in  the  graphic  displays. 
The  method  of  continuing  the  program  was  purposely  altered  to  a  different 
key  stroke  than  found  elsewhere.  An  explanation  follows  in  Chapter  5, 
Abagame. 
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is  expected.  If  the  entry  is  to  be  numerical,  as  in  changing  the  X 
position  of  a  unit,  the  program  accepts  only  digits  and  characters 
acceptable  in  numbers;  it  will  not  accept  anything  else,  i.e.,  it  will 
accept  a  "+"  or  as  the  first  character  and  if  the  entry  is  a  real 
number,  a  is  accepted.  If  an  integer  value  is  expected,  the 
will  not.be  accepted  anywhere. in  the  entry. 


V.  ABAGAME,  THESIS3 


A.  INTRODUCTION 

This  chapter  explains  the  game  portion  of  the  program.  It 
describes  the  main  program  and  each  of  the  major  procedures. 

B.  MAIN  PROGRAM 

Figure  (5.1)  is  a  flow  diagram  for  the  main  program  of  Abagame. 

When  this  program  is  called  the  game  database  has  been  built,  either 
in  a  previous  session  or  in  the  Changem  program.  Abagame  first  calls 
the  procedures  INITIALIZE  and  DOAIRLISTS  which  form  the  linked  lists 
from  the  game  database,  and  then  SHOWFORMS  is  called  which  presents  a 
display  of  the  forms  used  in  the  graphic  displays.  The  program  then 
asks  the  user  whether  he  wishes  to  have  the  computer  step  through  the 
game  at  a  fixed  time  step.  If  so,  the  program  will  not  call  the 
SHOWSTATUS,  NEXTEVENTS  or  NEXTSTEP  procedures  while  all  other  aspects 
of  the  program  are  identical. 

Abagame  then  begins  the  loop  that  repeats  each  of  the  following 
procedures  until  the  "game  time"  is  greater  than  the  default  "endtime" 
of  160  minutes  or  the  user  tells  the  program  to  stop  in  NEXTSTEP.  The 
first  procedures  called  are  AIRADARCNTC  and  SHIPRADARCNTC,  which 
determine  if  any  of  the  fleet  units  have  any  radar  contacts.  Then 
DISPLAGAME  is  called  and  presents  the  graphic  displays  of  the  fleet  and 
the  attack.  SHOWSTATUS  is  called  next  and  presents  status  information 
on  the  fleet  units.  The  procedures  NEXTEVENTS  and  SELECTOR,  discussed 


Figure  5.1  Abagame  Main  Program  Flowchart 
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SHOWSTATUS 


Fiaure  5.1  Continued 


here  as  a  single  entity  are  called  next.  They  allow  the  user  to 
selectively  alter  the  headings  and  speeds  of  friendly  units.  NEXTSTEP 
is  called  which  allows  the  user  to  stop  the  program  or  continue  with  a 
time  step  of  his  choice.  The  program  time  is  then  updated  according 
to  the  new  time  step.  GETKILLS,  the  procedure  which  eliminates  the 
"killed"  enemy  aircraft  or  "sunk"  ships,  is  called  next.  The  last 
procedures  called  in  the  loop  are  FLTUPDATE  and  ATKUPDATE.  These  two 
procedures  update  the  fleet  and  attack  positions  according  to  the  time 
step  and  the  headings  and  speeds  of  the  units.  When  the  loop  is  exited, 
the  program  calls  MAKEOUTFILE  which  creates  "outfiles"  of  the  surviving 
aircraft  and  ships. 

C.  INITIALIZE,  DOAIRLISTS,  SHOWFORMS 

The  procedures  INITIALIZE  and  DOAIRLISTS  are  very  similar.  They 
form  the  linked  lists  that  are  used  in  the  remainder  of  Abagame. 
Initialize  is  called  first.  It  initializes  the  boolean  variable  "stop" 
to  false,  and  the  game  time  to  zero.  The  SHIPDATA  file  is  read  from 
the  game  database  and  each  record  is  assigned  a  sequential  number  and 
placed  in  the  ship  linked  list.  Also,  the  carrier's  X  and  Y  coordinates 
are  noted.  The  carrier's  position  is  referenced  often  throughout  the 
program.  DOAIRLISTS  reads  the  AIRDATA  file  from  the  game  database  and 
according  to  whether  the  aircraft  is  an  "enemy"  or  "frend"  assigns  it 
to  the  "atk"  list  or  "air"  list.  The  attack  aircraft  are  assigned 
sequential  numbers  beginning  at  one.  Since  the  displays  are  divided 
into  attack  and  fleet,  and  the  fleet  consists  of  ships  and  friendly 
aircraft,  the  friendly  aircraft  need  to  be  assigned  non-conflicting 
numbers  with  the  ships.  Therefore,  the  friendly  aircraft  are  assigned 
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sequential  numbers  beginning  after  the  last  number  assigned  a  ship. 

This  numbering  is  designed  to  facilitate  the  user's  recognition  of 
units  between  the  graphic  displays,  the  status  displays,  and  the  "event" 
displays. 

SHOWFORMS  is  the  procedure  that  shows  the  user  the  different  forms 
that  will  be  used  in  the  graphic  displays.  This  procedure  first  calls 
the  procedures  in  the  MAKEFORMS  library  unit  that  form  the  figures,  and 
then  displays  them  on  a  graphic  display  with  appropriate  explanation. 

The  actual  forms  are  made  by  activating  or  deactivating  specific  bits 
in  two  dimensional  packed  arrays  of  boolean  variables. 

D.  GENERATING  RADAR  CONTACTS  AND  KILLS 

The  two  procedures  AIRADARCNTC  and  SHIPRADARCNTC  along  with  MAKECNTC 
have  several  functions.  They  determine  if  an  attack  aircraft  has  been 
detected  by  one  of  the  four  radar  types  of  the  fleet  or  if  it  has  been 
killed  by  a  missile  shot,  either  surface-to-air  or  air-to-air.  Missile 
firings  are  done  in  an  "uncoordinated"  mode.  If  a  contact  is  within 
the  range  and  the  firing  envelope  of  a  friendly  unit  that  unit  will 
fire.  SHIPRADARCNTC  also  determines  if  one  of  the  attack  aircraft  has 
successfully  hit  a  ship  with  a  missile  or  bomb  and  whether  that  ship 
has  been  sunk. 

MAKECNTC  forms  a  linked  list  of  radar  contacts,  determining  which 
attack  aircraft  are  in  radar  contact  and  if  more  than  one  type  radar 
is  in  contact  which  one  will  be  displayed  as  having  contact.  MAKECNTC 
requires  six  parameters  passed  to  it; 

i)  type  of  contacting  radar, 

ii)  state  of  contact,  either  alive  or  killed. 
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iii)  contact's  X  coordinate, 

iv)  contact's  Y  coordinate, 

v)  contact's  number, 

vi)  number  of  unit  holding  contact. 

AIRADARCNTC  determines  the  interactions  between  friendly  aircraft 
and  attack  aircraft.  The  overall  process  is  to  scan  the  friendly  air¬ 
craft  list  as  an  outer  loop  and  for  each  airborne  friendly  aircraft 
scan  the  attack  aircraft  list.  For  every  combination  of  airborne 
friendly  aircraft  and  each  attack  aircraft  the  ground  distance,  as 
opposed  to  slant  distance,  and  the  radar  horizon  are  calculated. 

Radar  horizon  is  calculated  using; 

rh  :=  1.25  *  Sqrt(alt  of  a/c#l)  +  Sqrt(alt  of  a/c#2). 

If  the  friendly  aircraft  is  an  early  warning  aircraft,  then  the  dis¬ 
tance  between  the  units  is  checked.  If  this  distance  is  less  than 
the  radar  horizon  and  the  maximum  AEW  radar  range,  then  the  procedure 
MAKECNTC  is  called,  utilizing;  'air  search  radar',  and  'contact  is 
alive'.  After  return  from  MAKECNTC,  the  next  attack  aircraft  on  the 
list  is  checked  through  this  entire  process. 

If  the  friendly  aircraft  is  an  interceptor,  the  distance  between 
the  units  is  compared  to  the  air-to-air  missile  (AAM)  maximum  range, 
and  the  radar  horizon.  If  the  distance  is  less  than  these  values, 
the  target  is  within  the  firing  envelope,  and  the  interceptor  is 
armed  with  missiles  then  a  missile  is  fired.  The  interceptor's 
missile  count  is  then  decremented  and  a  random  number  is  generated 
in  the  RANDOM  procedure  of  the  APPLESTUFF  unit  of  the  system. library. 
RANDOM  generates  a  psuedo-random  number  uniformly  distributed  between 


zero  and  "maxint",  the  maximum  integer  represented  in  the  APPLE  III. 

If  the  random  number  is  less  than  or  equal  to  "maxint"  multiplied  by 
the  probability  of  kill  for  the  missile  then  the  attack  aircraft  is 
declared  killed  and  MAKECNTC  is  called  with;  'air  intercept  radar', 
and  'contact  is  killed’.  If  the  random  number  was  greater  than  the 
"maxint"  multiplied  by  the  missile  ' pk * ,  then  MAKECNTC  is  called  with 
the  same  parameters  except  that  'contact  is  alive'  is  used.  After 
return  from  MAKECNTC,  the  next  attack  aircraft  on  the  list  is  checked 
through  the  process.  However,  if  the  last  check  (distance  compared 
to  missile  maximum  range,  distance  compared  to  radar  horizon,  target 
within  firing  envelope,  and  number  of  missiles  greater  than  zero)  was 
not  true  then  the  distance  is  compared  to  the  air  intercept  radar 
maximum  range,  the  radar  horizon,  and  the  air  intercept  radar  detection 
envelope.  If  the  distance  is  within  both  of  these  ranges  and  the 
target  is  within  the  detection  envelope,  then  MAKECNTC  is  called  with 
'air  intercept  radar',  and  'contact  is  alive'.  If  one  of  these  com¬ 
parisons  is  not  true,  then  the  next  attack  aircraft  on  the  list  is 
checked  through  the  process.  The  procedure  is  exited  when  all  aircraft 
have  been  paired  for  the  comparisons. 

In  essence,  this  process  is;  check  the  shortest  missile  range;  if 
within  range,  check  for  kill;  if  not  within  range,  check  for  next 
longest  radar  range;  if  within  range,  generate  contact;  and  if  not 
within  range,  consider  the  next  aircraft. 

As  indicated,  SHIPRAOARCNTC  executes  virtually  the  same  process, 
the  algorithm  is  identical,  only  the  complexity  is  changed.  Radar 
Horizon  is  calculated  using: 

rh  :=  1.25  *  Sqrt(alt  of  a/c). 
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Ships  may  differ  in  their  armament,  but  they  are  assumed  by  the  program 
to  have  the  same  capabilities;  short  range  surface-to-air  missiles 
(SRSAM),  long  range  surface-to-air  missiles  (LRSAM),  fire  control  radar, 
and  ship  search  radar.  The  SRSAM  ranges  (minimum  and  maximum)  are 
compared  to  the  distance  between  the  ship  and  attack  aircraft  first, 
then  LRSAM  ranges,  then  fire  control  radar,  then  ship  search  radar.  If 
the  test  that  is  true  is  for  SRSAM,  LRSAM,  or  the  fire  control  radar 
then  the  radar  parameter  passed  to  MAKECNTC  is  'fire  control*  otherwise 
it  is  'ship  search'.  If  the  check  was  for  a  missile  type  then  a  random 
number  is  generated  and  a  comparison  similar  to  the  one  explained 
earlier  is  made.  If, 

random  number  <=  maxint  *  missile  pk, 
is  true  then  'contact  is  killed'  is  passed  to  MAKECNTC,  otherwise 
'contact  is  alive'  is  passed. 

At  this  point  in  SHIPRADARCNTC, it  is  determined  if  the  attack 
aircraft  has  come  within  the  range  for  a  bomb  drop  or  within  range 
of  an  air-to-surface  (ASM)  missile.  Range  for  a  bomb  drop  is  checked 
first,  then  the  range  for  an  ASM  shot.  A  successful  hit  (determined 
by  the  same  method  as  above)  causes  the  bomb  hit  total  or  missile  hit 
total  to  be  incremented  by  one.  The  total  hits  on  the  ship  are  then 
compared  to  the  hit  tolerance  for  the  ship  and  if  the  tolerance  is 
exceeded,  the  ship  is  declared  sunk.  At  this  point,  the  next  attack 
aircraft  on  the  list  is  checked  through  this  entire  process.  The 
procedure  is  exited  when  all  ships  have  been  compared  with  all  attack 
aircraft. 


MAKECNTC  is  the  procedure  that  forms  the  radar  contact  linked  list 
for  each  time  step  of  the  game.  This  procedure  scans  the  contact 
list  comparing  each  element's  X  position  and  Y  position  with  the  posi¬ 
tions  passed  it  by  AIRADARCNTC  or  SHIPRADARCNTC  to  determine  if  this 
attack  aircraft  being  passed  is  already  on  the  list.  If  it  is  not  on 
the  list,  then  it  is  put  there.  If  this  aircraft  is  on  the  list  and 

if  the  contact  on  the  list  is  dead,  then  nothing  occurs.  If  the  in¬ 
coming  contact  is  indicated  killed,  then  the  incoming  parameters 

replace  those  on  the  contact  list.  If  the  contact  on  the  list  is  not 
dead  already  or  indicated  dead  by  the  incoming  parameters,  the  final 
contacting  radar  is  determined  according  to  the  radar  hierachy:  fire 
control,  air  intercept,  ship  rearch  and  air  search.  As  an  example, 
when  a  fire  control  radar  and  an  air  intercept  radar  are  in  contact 
and  the  target  is  alive,  then  the  fire  control  radar  is  declared  the 
radar  in  contact,  the  displays  will  exhibit  the  fire  control  symbol  and 
the  status  report  shows  fire  control  as  the  radar  in  contact.  However, 
if  the  same  radars  hold  contact  and  the  interceptor  had  scored  a  kill, 
then  the  air  intercept  radar  is  used  as  the  radar  in  contact.  If  the 
ship  and  interceptor  fired  a  missile  and  both  indicated  a  kill,  then 
the  one  placed  on  the  contact  list  first  is  used  as  the  unit  in  contact. 
In  this  case,  it  would  be  the  air  intercept  radar  because  AIRADARCNTC 
procedure  is  executed  before  SHIPRADARCNTC. 

E.  DISPLAGAME  AND  GRAPHICS  DISPLAYS 

Figure  (5.2)  is  a  general  fl.,  diagram  for  DISPLAGAME.  DISPLAGAME 
is  the  procedure  from  which  both  the  fleet  and  attack  deployment 
displays  are  called.  The  first  thing  done  is  to  call  POSITRANSFER, 


POSITRANSFER 


Figure  5.2  DISPLAGAME  Flowchart 
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which  is  a  procedure  to  ouild  the  two  linked  lists  that  the  procedures 
SHOWFLEET  and  SHOWATTACK  will  use  to  make  the  displays.  The  first  list 
is  the  "fit"  list  and  the  second  is  the  "ene"  list.  Each  is  a  linked 
list  of  records.  Figure  (5.3)  illustrates  these  records,  which  are 
defined  in  the  system. library  unit  GRAFSTUFF. 

The  "fit"  list  is  formed  by  scanning  the  ship  list  and  transferring 
the  reauired  information,  then  scanning  the  "air"  list  (friendly  air¬ 
craft)  and,  provided  the  aircraft  is  airborne,  transferring  the  required 
information.  The  "cnt"  list  (radar  contact)  is  next  scanned  and  the 
information  on  it  is  transferred.  Likewise,  the  "ene"  list  is  formed 
from  the  "atk"  list  (enemy  aircraft).  These  separate  lists  are  needed 
because  the  coordinate  positions  are  actually  chanqed  when  a  screen  is 
recentered,  upscaled  or  downscaled. 


fit  3  record 

link  :  fltpntr; 
what  :  fltyoe; 
num  :  0..255; 
xpos  :  real ; 
ypos  :  real ; 
end; 

ene  »  record 

link  :  enepntr; 
what  :  enetype; 
num  :  0..255; 
xpos  :  real ; 
ypos  :  real ; 
end; 

Variable  Meanings: 

link  :  A  pointer  variable  used  in  the  linked  lists, 
what  :  A  program  type,  used  to  determine  what  figure 
to  use  in  tne  display. 

num  :  The  unit  number,  assigned  in  Abagame. 

xpos  :  The  X  coordinate  position  on  the  screen, 

ypos  :  The  Y  coordinate  position  on  the  screen. 


Figure  5.3  Display  Records 
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The  procedures  SHOWFLEET  and  SHOWATTACK  do  just  what  their  names 
imply.  They  scan  the  appropriate  list  ('fit'  or  'ene')  and  draw  the 
correct  figure  and  unit  number  at  the  X-Y  coordinate  position.  The 
procedure  WHATNEXT  is  then  called  and  presents  a  selection  menu,  con¬ 
sisting  of  four  choices  that  are  drawn  on  the  graphic  force  display. 

The  user  can  upscale  or  downscale  the  display  or  recenter  on  one  of  the 
figures  on  the  display  or  he  can  continue  the  program. ^ 

The  same  menu  is  provided  on  both  the  fleet  and  attack  displays. 

The  user  is  presented  the  fleet  display  on  every  time  step  through  the 
game.  After  he  sees  this  display,  he  is  presented  the  option  of  viewing 
the  attack  display. 

The  three  procedures  SCALEUP,  SCALEDOWN,  and  RECENTER  are  in  the  thesis3.- 
library  unit  GRAFSTUFF.  Additionally,  this  unit  defines  the  records  that 
form  the  "fit"  list  and  "ene"  list.  The  scaling  procedures  are  very 
similar  in  style  and  operation.  The  scale  is  either  doubled  or  halved 
with  each  call  to  the  respective  procedure.  The  procedure  RECENTER  works 
in  the  following  manner.  The  appropriate  list  is  scanned  to  find  the 
unit  on  which  the  display  is  to  be  recentered.  Then  adjustment  figures 
for  each  coordinate  plane  are  calculated  that  are  the  distance  from  the 
screen's  center  to  the  unit.  Then  the  list  is  again  scanned  and  each 
unit's  X  and  Y  positions  are  redefined  according  to  the  adjustment  figures. 
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This  is  the  inconsistency  mentioned  earlier.  This  was  done  because 
the  type  ahead  buffer  of  the  APPLE  III  stores  key  strokes  until  the  com¬ 
puter  can  act  on  them.  During  a  recenter  operation,  a  three  digit  number 
is  allowed.  Often  though,  the  recenter  is  done  on  a  single  or  double  digit 
unit  number  thus  a  space  or  carriage  return  is  required  to  enter  the  number. 
If  this  key  is  inadvertently  held  too  long,  it  would  cause  the  screen  to  re¬ 
cent  er  and  then  immediately  type  the  space  character.  With  the  method  used 
elsewhere,  this  would  cause  a  page  continuation.  It  was  concluded  this 
inconsistency  was  more  desirable  because  it  made  the  program  a  bit  more 
"goof  proof". 


F.  STATUS  REPORTS,  NEXTEVENTS,  NEXTSTEP 


The  displays  are  followed  by  the  menu  for  selecting  the  status 
reports  of  the  fleet.  These  reports  show  the  display  number,  type  of 
unit,  coordinate  position,  position  relative  to  carrier  (aircraft  and 
radar  contacts  only),  heading  of  unit,  and  speed  of  unit.  These 
reports  are  amplifying  information  for  the  displays. 

When  the  user  is  through  reviewing  the  status  reports,  he  is  pre¬ 
sented  the  menu  for  selecting  the  events  he  desires  to  take  place  in 
the  next  time  step.  When  a  selection  is  made  from  the  event  menu,  the 
selection  is  followed  by  further  questioning  to  determine  what  the  user 
desires  to  accomplish.  For  example,  if  he  chooses  to  move  a  fighter, 
he  is  presented  with  each  airborne  fighter  and  asked  if  this  is  the  one 

C 

he  wishes  to  move.  If  he  answers  no  to  each  one,  he  is  taken  back  to 
the  menu  and  no  changes  are  made.  If  he  answers  yes  for  one,  he  is  asked 
to  enter  the  new  heading,  velocity  and  altitude  he  desires  for  the  unit. 
After  this,  he  is  presented  with  the  event  menu  again.  He  can  then  make 
another  selection  or  repeat  a  selection  for  another  aircraft  (or  ship) 
or  quit.  The  user  is  able  to  review  the  displays  and/or  the  status  re¬ 
ports  from  this  menu.  Reviewing  the  status  reports  allows  the  user  to 
see  the  alterations  he  has  made  for  the  next  time  step. 

When  the  user  is  satisfied  with  his  actions  and  is  ready  to 
continue,  he  quits  this  menu  and  is  presented  the  "next  step"  choices. 

.  6J5i?  Is  actually  a  misnomer.  The  user  alters  the  heading,  speed 
and  altitude  of  a  unit  and  with  the  next  update  and  display  the  units 
are  "moved"  accordingly. 


He  is  told  the  current  game  time,  in  minutes,  and  is  asked  if  he  wants 
to  stop  the  program.  If  he  answers  no,  he  is  asked  to  enter  the  next 
time  step  increment.  The  last  part  of  the  program  loop  is  the  set  of 
procedures  that  update  the  positions  of  the  fleet  and  attack. 

G.  GETKILLS,  FLTUPDATE ,  ATKUPDATE 

The  final  three  procedures  in  the  program  loop  update  the  linked 
lists  for  the  next  loop.  GETKILLS  serves  two  functions,  it  deletes  "sunk 
ships  from  the  ship  list  and  deletes  "killed"  attack  aircraft  from  the 
attack  list.  First,  it  scans  the  contact  list  checking  for  "killed"  con¬ 
tacts.  Then  for  each  "killed"  contact,  it  scans  the  "atk"  list  looking 
for  the  aircraft  that  has  matching  coordinate  positions,  and  then 
deletes  this  aircraft  from  the  "atk"  list.  When  the  scan  of  the  con¬ 
tact  list  is  completed  and  all  "killed"  attack  aircraft  are  deleted,  the 
ship  list  is  then  scanned.  Each  "sunk"  ship  is  then  deleted  from  the 
list.  At  the  completion  of  GETKILLS,  the  lists  contain  only  alive 
aircraft  and  floating  ships. 

FLTUPDATE  is  then  called  and  updates  the  positions  of  the  fleet 
units.  The  new  ship  list  is  scanned  and  the  library  procedure  GETNEWXY 
is  called  for  each  ship.  If  the  ship  is  the  carrier,  then  the  coordi¬ 
nate  positions  are  noted  for  future  game  reference.  The  procedure 
then  scans  the  "air" list  and  determines  endurance  for  each  airborne 
friendly  aircraft.  If  the  aircraft  does  not  have  enough  endurance  to 
last  the  time  step,  then  it  is  deleted  from  the  list.  If  the  aircraft 
has  enough  endurance,  then  the  endurance  time  is  decremented  and  the 
aircraft's  new  coordinate  positions  are  calculated  and  recorded  by 


GETNEWXY.  If  the  aircraft  is  not  airborne,  then  the  aircraft's  coordinate 
positions  are  set  equivalent  to  the  carrier's. 

ATKUPDATE  is  the  last  procedure  called  in  the  loop  of  the  program. 
ATKUPDATE  scans  the  "atk"  list  and  calculates  and  records  the  new  coordi¬ 
nate  positions  for  each  attack  aircraft.  It  next  implements  the  attack 
profile.  If  the  game  time  is  greater  than  the  attack  retreat  time,  then 
the  list  is  scanned  again  and  the  retreat  heading,  velocity  and  altitude 
are  placed  in  the  appropriate  variables  of  each  aircraft's  record.  If 
the  game  time  is  less  than  the  retreat  time,  then  game  time  is  checked 
against  a  "look"  time.  This  "look"  time  is  considered  to  be  an  intelli¬ 
gence  update  time,  i.e.,  after  every  multiple  of  this  look  time  increment, 
the  attack  "gets  an  intelligence  update",  which  consists  of  the  new  head¬ 
ing  to  the  fleet.  When  the  game  time  increases  beyond  t<;sse  "look" 
intervals,  the  heading  of  each  attack  aircraft  is  updated.  Also,  when 
the  first  attack  aircraft  gets  within  200  nautical  miles  of  the  carrier, 
each  aircraft's  altitude  is  changed  to  the  "inbound"  altitude.  Most  of 
these  "profile  variables"  are  written  into  the  program  as  constants  and 
therefore  this  "profile"  can  be  changed  by  changing  these  constant  values. 
Figure  (5.4)  is  a  list  of  the  game  constants  and  their  meanings. 

When  this  procedure  is  completed,  the  program  checks  for  a  user  de¬ 
clared  "stop"  or  a  game  time  greater  than  the  default  "endtime".  If 
either  is  true,  the  program  exits  the  loop  and  calls  the  procedure  that 
forms  the  outflles  of  the  program.  These  files  are  placed  on  the  second 
disk  and  can  be  printed  using  the  FILECHCKER  program.  The  files  consist 
of  information  concerning  the  forces  still  in  "action"  when  the  program 
was  halted.  If  the  program  is  not  halted,  the  game  is  repeated  beginning 
with  the  check  for  radar  contacts. 
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retrtime  3  120  :  Game  time  of  retreat. 

retrthdg  =  090  :  Retreat  heading. 

retrtalt  3  20000  :  Retreat  altitude 

retrtvel  3  400  :  Retreat  velocity 

inbdalt  3  200  :  Inbound  attack  altitude. 

inbdist  3  200  :  Distance  from  carrier  for  attack 

altitude  descent. 

incr  3  20  :  Intelligence  update  interval, 

to!  3  0.5  :  Miss  tolerance  for  bomb  drops, 

hittol  3  7  :  Number  of  hits  a  ship  can  endure, 

recov  3  5  :  Instant  recovery  radial  distance, 

tmdefault  3  160  :  Game  end  default  time. 


Figure  5.4  Abagame  Program  Constants 


VI.  FUTURE  DEVELOPMENTS.  APPLICATIONS 


A.  EXPANSION  AND  EXTENSIONS 

There  are  a  few  areas  of  the  program  that  could  be  enhanced  to  make 
the  program  more  flexible,  more  realistic,  or  operate/use  memory  more 
efficiently. 

Flexibility  could  be  enhanced  with  the  addition  of  a  larger  data¬ 
base  or  maybe  several  different  default  databases.  More  files  could  be 
created  with  several  different  types  of  scenarios,  e.g.,  convoys,  or 
offensive  attacks  against  an  air  defense.  The  scenario  of  this  program 
has  much  room  for  expansion.  For  example,  the  attack  force  could  be 
altered  for: 

i)  the  azimuth  of  the  attack, 

ii)  more  or  fewer  aircraft, 

iii)  highly  specialized  aircraft, 

i v )  different  formations, 

v)  time  delays  between  attack  aircraft,  etc. 

It  would  be  a  trivial  matter  to  change  the  menus  and  chaining  operations 
of  Intro  and  Startem  to  allow  more  databases/scenarios.  These  changes 
could  be  instituted  as  possible  classroom  projects  in  a  wargaming  or 
simulation  course.  With  the  inclusion  of  these  ideas  into  the  program, 
the  algorithms  certainly  would  be  scrutinized  and  assuredly  enhanced  and 
streamlined,  thus  enhancing  efficiency.  The  program  was  developed  and 
written  with  "brute  force"  algorithms,  and  therefore  lacks  algorithmic 
finesse.  More  time  and  a  concentrated  effort  in  this  direction  could 
lend  more  realism  and/or  increase  the  efficiency. 


Several  times  throughout  the  development  of  this  thesis,  the  problem 
of  memory  space  limitations  has  occurred.  Upgrading  the  computer  to  the 
256K  configuration  would  allow  a  more  expanded  and  realistic  solution  to 
the  presentations.  This  expansion  would  allow  more  drivers  in  the  system 
definition  and  more  memory  for  the  program.  The  addition  of  a  "printer" 
driver  would  enable  printed  output,  from  tables  and  lists  to  a  complete 
listing  of  the  default  or  game  database.  The  program  does  create  "outfiles" 
that  retain  information  on  and  the  status  of  the  surviving  ships  and  air¬ 
craft.  The  textfil e/program  FILECHCKER  will  print  these  files  to  a 
printer  if  the  system  is  coupled  to  an  rs232  port.^  Filechcker  requires 
compilation  and  a  system  configured  for  a  "printer"  driver  before  it  can 
be  run. 

Another  avenue  of  expansion  that  could  increase  the  program  flexi¬ 
bility  would  be  the  addition  of  several  attack  profile  (ATKUPDATE)  pro¬ 
cedures.  If  this  were  done,  the  user  could  be  presented  with  a  menu  for 
selecting  the  profile  he  desires  to  implement  at  the  start  of  the 
Abagame  program,  then  based  on  his  selection  the  appropriate  procedure 
would  be  called  when  the  attacking  force's  positions  are  to  be  updated. 

An  enhancement  that  would  require  extensive  changes  to  the  basic 
structure,  but  could  add  a  higher  level  of  realism  would  be  the  incorpora¬ 
tion  of  an  event  type  structure  between  the  time  steps.  With  this  game 
structure,  a  more  realistic  approach  to  radar  detections  and  missile 

7This  can  be  changed  simply.  Enter  the  text  version  of  FILECHCKER 
and  change  the  string  variable  in  the  rewrite  statement  from  .rs232  to 
.silentype  or  .printer  or  the  appropriate  name  of  the  "printer"  device 
driver. 


firing  envelopes  and  of  missile  interceptions  could  be  calculated  and 
implemented.  This  would  require  more  elaborate  mathematical  models. 
Specifically  involving  missile  and  aircraft  interaction  geometries. 

Alternatively,  all  interactions  could  be  calculated  on  a  very  short 
time  step  structure  between  the  game  "review"  times  of  the  user  supplied 
time  step.  This  would  require  less  extensive  program  changes  than  the 
next  event  structure  and  it  would  help  eliminate  the  occurrence  of 
missed  interactions  because  of  long  time  steps. 

B.  APPLICATIONS 

The  air  battle  computer  program  is  not  designed  to  test  one's 
knowledge  of  weapon  systems  or  characteristics;  it  is  helpful  in  as¬ 
certaining  the  effects  of  tactical  employment  of  various  types  of 
weapon  systems.  It  illustrates  the  consequences  of  decisions  and  of 
different  courses  of  actions  on  the  many  possible  interactions  between 
adversary  units  and  provides  an  easily  understood  display  of  movements 
and  operations  of  the  ships  and  aircraft.  The  air  battle  program  is 
most  helpful  with  the  timing  of  the  tactical  decisions  required  in  an 
air  battle.  The  ephemeral  nature  of  decisions  in  a  tactical  situation 
belies  the  importance  these  decisions  hold  on  the  outcome  of  a  battle. 

The  length  of  time  one  decision  affects  the  battle  is  often  very  short; 
however,  the  entire  outcome  of  the  battle  may  rest  entirely  on  one  of 
these  tactical  decisions. 

This  program  cannot  be  considered  a  cornucopia  of  solutions  to  the 
tactical  decision  problem  areas  it  presents.  It  lacks  realism  in  very 
important  aspects  of  unit  characteristics  and  the  solution  of  interaction 
geometries.  It  provides,  however,  a  learning  experience  in  a  recreational 


environment  and  an  interesting  and  economical  method  for  exploring 
tactical  environment  decisions.  Repeated  use  of  the  program  is  re¬ 
quired  to  appreciate  the  subtle  differences  between  one  manner  of  tactical 
decision  implementation  and  another. 


PROGRAM  LISTING 


UNIT  THESISTUFF * 

INTRINSIC  cud*  24  data  221 

INTERFACE 

TYPE 

siixpnlr  -  "'ship* 

cuinnlr  -  "jifepaf t) 

unlpnlr  -  ‘'contact* 

ship tape  —  icvnjiis  tiei'sr)  i 

find tape  *  (xnU'^ttdvu)  i 

iff  tape  -  ( f rend rename > * 

i'«'J«ptapu  *  idsrcin  ssrtnidi  rt'con)  i 

uni.ru  -  (cl  pi  off  rant  bn l  »bs  »ht » If  »cl  rln»  cl  rpa)  * 


contact  -  (-•curd 


1  xi  ik 

critpntr* 

who 

radartepe* 

num 

0. .252* 

rdnm 

0. .222* 

:<pos 

real  * 

epos 

real  * 

dead 

boolean* 

end* 

record 

link 

shxpntr) 

class 

ship tape* 

num 

0. .235* 

»PUS 

real  * 

epos 

real  * 

pxm 

0.  .359* 

sua 

0. .20* 

f  c  rne 

0.  .252* 

as  me 

0. .255* 

1  ream 

0.  .255* 

srsam 

0. .255* 

1  rmpk 

real  * 

s  rmpk 

real  * 

s  rmin 

0.  .255* 

s  max 

0 • . 255  r 

1  rmin 

0. .255* 

1  rmex 

0. ,255* 

mill  ts 

0.  .255* 

ui  i  x  bs 

0.  .255* 

sunk 

boolean* 

end  I 

aircraft  -  record 

ixnk  I  Jippntrl 
i  ium  I  0 • . 222  * 

urus  5  real  * 
■jhus  I  real  * 
alt  ;  0. .20000* 
dcini.ii  •  0.  .329* 
velcle  i  0..2000* 
iff  ;  i,fflape* 


<  X  coordinate  position  > 

<  Y  coordinate  position  > 

-C  360  p  000  *  North  > 

<  Speed  of  advance  > 

<  Ranee  of  fire  control  > 

<  Ranee  of  search  radar  > 

I  *  of  lone  ranee  SAN  > 

<  ♦  of  short  ranee  SAM  > 

<  LR  SAM  prob.  of  kill  > 

<  SR  SAM  prob.  of  kill  > 

<  SR  minimum  taraet  dist  > 

<  SR  maximum  taraet  dist  > 

■C  LR  minimue  taraet  dist 

<  LR  maximum  taraet  dist 

<  Nuber  of  missile  hits 
■C  Number  of  bomb  hits 

<  Indication  of  total  hits> 


V  V  V  S' 


* 


Cdse  if  ft  Sf»«  uf 
ei  i***  : 

( 


asm 

asmrnsl 

dSMnv 
asrnek 
tuab 
uombek 

f  rend  ; 

<  acf rnd  t  frndtaee) 

cdStf  frniJtst'K  uf 
mtcpt  2 


0.  .31  > 

0..255) 

0..33?) 

real  ), 

0..31) 

real 


)  > 


< 


aew 

( 


arid) 

VAR 

selection  :  char) 
cunt  runua  5  0..31) 

PROCEDURE  SCRNCNTRO  <  doehat 
FROCEDURE  CONTINUE) 

FROCEDURE  YESN03EL) 

FUNCTION  CHANGE IT 

function 
FUNCTION 


intndr 

dime 

aienv 

dan 

aaarn* 

aaaenv 

dd*pk 

deend r 
aewrnl 
reco  rd 


eritro  )  ) 


0.  .233) 
0.  .255) 
0.  .35?) 
0. .31) 
0. .255) 
0. .359) 
real 


> ) 


55  ) 


0.  .255 


))) 


•  boolean) 

REA0INT  <  Intii  :  integer  >  : 
READREAL  < 


inteser) 
real ) 


FROCEDURE  3CRNCNTR0) 


bedui 


» 

fdbe  >Juwn«t 

uf 

*  ■ 

L'»fi  I 

cun t runuM 

- 

07) 

< 

Sound  Bell 

i 

cun  t  run urn 

St 

03) 

< 

Backspace  Cursor 

lit  • 

cun  t  runutfl 

St 

0?) 

< 

Horizontal  Tabulation 

if  : 

cunt  rununi 

-» 

10) 

< 

Linefeed 

jff  • 

con  t  i'ui  iuii 

•■it 

Id) 

< 

Screen  Off 

un  ; 

cun  t  iaunum 

- 

15) 

< 

Sc  reen  On 

uir  l 

cun  t  roi  ium 

- 

23) 

< 

Clear  Screen 

t-i  r  i  h  • 

cun  t  roi  ium 

- 

2?) 

< 

Clear  Line  Fro*  Cursor 

cXrvsi  l 

cun  t  runum 

-A 

31) 

■C 

Clear  Screen  Fro*  Cursor 

tfl'tU  f  < 

CUUtf 

> 

uin  Mri  ta 

1 1  itj  ) 


<  1  icunlruiwm 2r  *  12)  ) 
< 


3CRNCNTR0 
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V  S'  V  V  V  V  S'  V  v 


I 

I 

j 

w 

I 


PROCEDURE  CONTINUES 

LieSiii 

ui'Uv  ('  ?nibs  the  SPACE  BAR  to  continue^  ')* 

rudij  < ■Amine tion )  i  serneritro  (on)  i 

while  NOT  (selection  —  ')  do 

Owe  ill 

seineiit  ru(bel  )  i  wri  teln) 

writ*  <  '  You  must  it  it  the  SPACE  BAR  !  !  — —  Please  tra  again 

read  i  se lac  t ion i  ) 
tei  iu ) 

end)  <  CONTINUE  > 

PROCEDURE  YE3N0SEL) 


U  tl* 

wruu  \  '  Select  ;  ;■  ii<o  >) 

r ead  (btfittotiun)  i  bcrncnlro  t on /  i 

wi  1 1 1  e  NOT  (wwi  uc  t  1  ui  i  u  i  C  V  '  i  '  y  '  i  '  ,N(  '  »  '  n  '  3  )  Uo 

tivyiii 

ye  men  t  ro  <  Uel  )  i  wntwln! 

writelni'  You  must  enter  a  ( Y  or  w>  or  (N  or  r>>  !! 
write  <'  Pleas*  try  again  : 

reeg  ( belwc tion ) i 
end  i 

end)  <  YESNOSEL  > 


>  ) 

'  >  ) 


FUNCTION  CHANGEIT) 


uesin 

wri  tali i ) 
wri  bein< 
wriweiii) 

L'jye  selection  of 


Do  you  wish  to  Uliana#  this  value" 
sesnosel)  uri  twin)  wnbeln) 


'  N  '  >  '  ri ' 


ei  i»J  v 
tel  ui  ) 


i  lieiin 

chanSei  t 
wri tw< ' 
end) 

C  twain 

change i  t 
wri be <  ' 
end) 

<  ease 


'  )  ; 


t  rue  ) 

Enter  the  new  value  J  ' > ) 


false) 

Old  value  retained! . . .  ' > ) 


CHANGEIT 


FUNCTION  REnDINT) 

CONST 

Oks  -  3) 

WT  —  13) 
ui-  -  32) 


vAR 


eiierrey  l  arras  Cl*  *101  of  char) 
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i 


i  lura  :  intederf 
XOiJ t  •  1 • • 10  f 

ned  5  boolean? 
didits  t  set  of  char) 

bedin  ■C  READINT  > 

didits  5-  C'0'.«'9'lf 

fur  posit  :-  1  tu  In  til  do  write  ('_')f 
fur  r'Uiil  t  I—  1  tu  111  til  do  sc  men  t  ro  <  bs  >  f 
I'm  it  !  -  1  f 
while  fuiil  -  1  i jo 
bad  in 

reed  (keyboard?  charred  Cpositl)? 
if  (charred  Cpositl  iri  didits  +  C'+' ?'-'!> 
then  bad  in 

writ*  (charred  Cpositl)? 

pus it  i~  PUSit  +  1? 

and! 

a  full  -C  while  > 

while  posit  <-  lnth  do 
bedin 

read  (keaboerd?  charred  Cpusitl)f 
if  (ciiert-ea  Cpositl  in  didits  > 
then  bedin 

write  (charred  Cpositl)? 
posit  :=■  posit  +  1? 
end 

else  bedin 

if  charred  Cpositl  *  chr(bks) 

then  bedin  scrncntro(bs) f  posit  {•»  posit  -  If  endf 
if  (charred  Cpositl  in  Cchr (sp) ?chr(cr > 1 > 
tiien  In tli  5-»  posit  -  If 

endf 

endf  <  while  > 

i lum  •  —  Of 

if  charred  C 1 1  -  ' - '  then  ned  J  =  true  else  ned  ! »  falsef 
fur  posit  } -  1  to  In tii  do 

if  (charred  Cpositl  in  didits) 

then  uue  1 -  10  *  nun  +  ord  (charred  Cpositl)  -  ord  ('O')f 
if  ried 

tiien  reedint  J-=  -  nun 

else  reeuint  J—  nuinf 

endf  -C 

'UNCTION  nEADREAL? 

CONST 
bks 
c  r 

sp 

VAR 

ci tarred  5  erred  Cl.. 101  of  cherf 
nunr  divisor  f  intederf 


-  3  f 

-  13  f 

-  32  f 


READINT 


> 


renum  i  intuit 

I'Uil  li  decimal?  i  •  0..10f 
ned  I  boolean! 
dibits  J  3«t  ut  char! 

ebin  <  READREAL 

dibits  J-  C'O'  •  •  '?']> 

for  posit  i-  1  la  Inth  da  writs  <'_')! 
for  rosit  I -  1  lu  Inth  dp  scrncntro(bs)  1 
I'USxl  I~  It  decimal  t-  0 i  divisor  * 3  1 

wi  1 1  1  e  kus  x  l  -  1  du 
bwsli.li 

reed  (keyboard?  ciierre*  Cpositl)! 
if  (cherree  CposiIJ  in  dibits  +  C'+' ?'-'?' 
tiiwn  bebirt 

writs  (charrae  Cposit3)l 
posit  i-  POfcit  +  1) 


WflU  t 

if  cite  r  raw  Cpositl  =  thsn  decimal  5=  posit  -  1? 

wnd>  -C  wiiile  > 

■  iis  posit  <-  Inch  do 
bebm 

row d  (keyboard?  cherree  Cpositl)! 
if  (cherree  Cpositl  in  dislits  +  C'«'3) 
tiiwn  beam 

writs  (charrae  CpositDI 
posit  posit  +  1* 

if  charrae  CpositJ  3  ' . '  then  decimal  !■  posit  -  1! 
end 

else  beam 

if  charrae  Cpositl  *  chr(bks) 

tiien  uebin  scrncntro(bs) 1  posit  J*  posit  -  11  end! 
if  < char raw  Cpositl  in  Cchr(sp) »chr(cr>3> 
then  Inth  !  =  posit  -  11 

end! 

end!  <  while  > 


decimal  :»  posit  -  1! 


i  turn  5  -  01 

if  ci terras  C13  - 


if  charrae  C13  -  then  nsS  5=  troe  else  nes  :«  false! 

for  posit  I -  1  to  In lh  do 

if  (cherree  CpositJ  in  dibits) 

then  nua  !-  10  *  num  +  ord  (charrae  Cpositl)  -  ord  ('O')l 
if  (decimal  <>  0)  and  < inth  <>  decimal) 
then  for  i  5*  1  to  (Inch  -  decimal)  do 
divisor  i-  divisor  M  10! 
renum  ! i  nom  /  divisor! 


it  ties 
then 


read real 
re  ad  re  si 


-  ret  tom 
renum! 


READREAL 


rHESISTUFF 
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UNIT  BEARINGS* 
inirirniik'  cuu«  34* 

INTERFACE 

USES 

r^jiiauuuk  >  i  i  jiticernJ  * 

CONST 

Hi  -  3.141G927* 

PROCEDURE  GETNEUXY  (  THr-HDOiVEL  5  INTEGER*  WAR  NXfNY  :  REAL)* 
FUNCTION  DEGREES  (  XOrYOiXRiYR  :  REAL)  i  INTEGER* 

FUNCTION  DISTANCE  <  XO r YO r XR t YR  i  REAL)  :  INTEGER* 

IMPLEMENTATION 

PROCEDURE  GETNEUXY* 

WAR 

uikli  rails.  S  raai* 

di  3  L  2-  v» X  4  ta  /  600* 
rausi  !■»  lids  4  hX  /  130* 
iix  J-  iim  +  disL  4  sin  (rads)* 

us  S-  us  +  disk  4  cos  (rads)* 

and* 

FUNCTION  DEGREES) 

VAN 

;sdif»  adif  2  r«al* 
valua  !  iriLwdar) 

uvSii  i 

iidxf  :«J  “  «r* 

adif  2-  30  “  3r* 

xf  :<dif  a  o 

biiwn  if  3dif  -  0 

Ui»ii  dodraws  J-  0 
« I 33  if  3d if  >  0 

titan  dadraas  !»  ISO 
aXaa  daUreas  • -  000 

3i3W  if  3d if  -  0 

Li  1311  if  ;id  i  f  0 

titan  dadraas  !a  270 
al3a  dadraas  2  =  090 
also  Uadin 

valua  i-  round  (ISO  /  f»i  *  atan  (udif  /  3dif)>* 
if  abs  (vaXua)  <>  vaiua 
than  if  ;<dif  <  0 

than  daarsas  :*  ISO  +  vaXua 


360  +  valut 


til  SB  det*  fees  }  = 
tf ltitf  if  ;<dif  >  0 

then  decrees  i -  180  +  valua 
else  decrees  t-  valut 


FUNCTION  DISTANCE* 

VAR 

;;  u  1  f f  sdif  i  reel* 


detail  I 

ubif  l-  «o  -  itPJ 
•ad  if  I-  tao  —  tar* 

ijialaiict  ♦  -  round  (start  (  star  <:<dif>  +  sar  (tvdif>)  >* 
end* 


end  • 


UNIT  HAKEFORMS* 
intrinsic  cuu't  26  data  27* 

INTERFACE 


VAR 


slurfoi’t 

racked 

CO. «3»0.  .73 

of 

boolean* 

dawt'urn 

eecked 

dpr8« 

CO* *5*0* *93 

of 

boolean* 

in  If  writ 

Kecked 

CO*  « 5 1 0  *  *93 

of 

boolean* 

avurur 

Kecked 

drpan 

CO*  #  4  r  0  •  *43 

of 

boolean* 

f  c  rd  r 

Kecked 

CO*  *4f0*  *43 

of 

boolean* 

<ai  rdr 

pecked 

ari'M 

CO • •  4  ?0 ♦ • 43 

of 

boolean* 

sscdr 

pecked 

arcan 

CO • « 4»0 • *43 

of 

boolean* 

RQCEDURE  MISFORMS* 

ROCEDURE  AIRFORNS* 

IMPLEMENTATION 

r RGCEDURE  MISFQRMS* 


VAR 

i t  j  *  0  •  • 20  * 


besiiri 

for  i  J-  0  to  3  uo 
for  ~j  i  —  0  to  7  do 
detain 

aiurfurt  ti»Jl  I-  true* 


<  SHIP  FORM 
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if  <<i  -  0)  and  (  t  d  <  3)  or  ( w  >  4))) 

Hutu  shxpfor*  £itJ3  ’•«  false) 
if  (<<i  3  1)  or  (i  -  4)>  and  (<d  <  2>  or  Co  >  5J>> 
then  sitinfore  Ci»J3  !=  false) 

end) 

sitir’fore  C3»03  t-  false) 
sliiKforw  C3»?3  J-  false) 

for  x  J-  0  to  4  do  {  AIR  SEARCH  RADAR  > 

for  d  i  *  0  to  4  do 

jkwhJi'  Ci»J3  t-  (.rue? 
for  x  S -  1  tu  3  do 
for  o  J-*  1  to  3  do 

aewrdr  Ci*J3  : -  false) 

for  x  I-  0  to  4  do  <  INTERCEPTOR  RADAR  > 

for  J  I -  0  to  4  do 

if  <  < i  -  2)  or  <d  -  2)> 

Uteri  aii'dr  Ci  »J3  {*  true 

else  airdr  Ci»J3  5-  false) 

fur  i  0  to  4  do  <  FIRE  CONTROL  RADAR  > 

fur  d  • -  0  to  4  da 

if  <<i  -  d)  or  (i  +  d  3  4>) 
tiien  fcrdr  Ci>o3  ♦•=  true 

else  furdr  Ci>J3  !*  false) 

for  i  J-  0  to  4  do  <  SHIP  SEARCH  RADAR  > 

for  d  5  3  0  Lu  4  do 

Lies)  ill 

if  udd<i  +  d> 

tiien  strdr  Ci>d3  i3  false 

else  ssrdr  Ci»d3  i*  true  ) 

ssrdr  £0r03  false) 
ssrdr  C0r4]  J-s  false) 
ssrdr  C4>03  !•»  false) 
ssrdr  C4»43  )-  false) 
end) 

til  id  ) 

PROCEDURE  AIRFORMSi 
VAR 

it d  j  o • >20) 

Ued  in 

for  x  0  to  3  do  <  INTERCEPTOR/ATTACK  FORM  > 

for  d  J -  0  to  9  do 

if  x  >  3  tiieri  intfori*  Ci»d3  ;■»  true  els#  intfore  Ci*d3  J*  false) 


xi  i  if  u  rnt 

1 0  *  63  •  — 

true) 

in  Ut’urw 

Co *  7 3  ; - 

t  rue ) 

Li  t  if  arm 

Ci  >d3 

L  rue ) 

li  i  if  arm 

C 1 » 63  : - 

true) 

xnit'urm 

C2»  43 

t  rue ) 

mi-far  m 

C  2 1 3  3 

t  rue ) 

m if arm 

C  3  *  3  3  J  - 

true) 

ml  form 

C3»43 

t  rue  ) 

mi  form 

C2t  93 

t  rue  ) 
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<  EARLY  WARNING  A/C  FORH  > 


inbFora  C3r3J  i-  true* 
iuU'ur*  C3»?3  I-  true* 

Fur  i  t-  0  to  3  Jo 
Fur  J  •  -  0  tu  9  Jo 

iF  C ( i  -  2)  or  ( i  -  3) ) 

titan  eewFurm  Ci»J3  J=  trua 
else  iF<<J-3)  or  (J3 
then  dnuFona  Ci’J3  ! 
else  eewFora  Ci»u3  < 
eewFurm  Cl»83  «-  true* 
eewFurm  C1p93  <-  true? 
dttuFura  £4*33  {—  true* 
eewFora  C4»93  ♦-  true* 

«flj* 


4)  > 

=  b  rut 
“  Falsa* 


UNIT  GRAF STUFF 9 
intrinsic  coda  32  data  33* 


CONST 

;;cen  -  139* 
seen  -  93* 


INTERFACE 


TYPE 

FI  br-nbr 
wnwF'fibr 
Fltape 

HtwtdPK 

Fi  b 


-Fit* 

-ana* 

< oue t t war IsrFisht r aawcnt  raicn t  r Fccnt » sscnt ) * 

(F'lliaFOF'tC  )  * 

record 


link 

Fl  tpntr* 

wiiat 

a 

• 

Flteae* 

nu* 

• 

a 

0 • . 233  * 

a 

a 

raal  * 

■jpus 

• 

a 

real  * 

and  ( 

ana  ■“  race i'd 

1  ink 

a 

a 

wnapritr  * 

wiie  t 

• 

a 

eiietere* 

nua 

• 

a 

0.  .233* 

;<PUS 

a 

real  * 

JPU» 

a 

a 

real* 

end* 

VAR 

Fltuesw*  rltnext 

a 

Fl tpntr* 

sneuese*  wrienwKt 

• 

a 

miapntr* 

etksir  «F 

a 

a 

ouoleen* 

accent 

• 

a 

integer* 
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PROCEDURE  RECENTER > 
PROCEDURE  3CALEUP  ? 
PROCEDURE  SCALE DOWN) 


PROCEDURE  RECENTER5 


IMPLEMENTATION 


'Jd'JJ  •  r  WtilXr 


lltf'Jtll 

WIIWIIWkL  S—  wriwbwdW? 

Miii.it  vi«iiwn*»l',(Kn  O-  nucvriti  and  <an«n«::t  <>  nil))  do 
enwnwKt  i-  anwnwK t" . 1 ink I 
uwdJ  t-  iicuri  -  enwnw;<  t“  •  ;<pos  ) 
ywuw  {-  ican  -  anan»;<t" .  apos f 
wnariwxt  I-  vriwbaww i 
wiixlw  anin*K t  <>  nil  (Jo 
bwdi.ri 

wriwnox t" . ;<»*os  i=  an»n»xt'.KMS  +  ;<«dJI 
an«n«xt''iWO»  5*  wnanaxt'' .  afot  +  aadj) 
wnwriwxt  J*  anvnvxt".  link) 
arid) 

and 
bad  in 

FILriwxt  {=■  Fllbaswl 

wiixlw  ( ( FI bnwx L~ >nua  <>  nuc«nt>  and  (Fltnaxt  <>  nil))  do 
Fllnwxt  F  llnaxt".  link.) 

.iiuj  i  i  xcan  -  F  1  LnwxL" .  f 

anuj  {■*  yean  -  f  1  Uiw;<l".w*»os) 

Fltnwxt  •*  FllbaiiwJ 
wiixlw  FlLnwxt  <>  nil  do 
uwdin 

FI  Iriwxf-.xiwos  i»  FI  tn*Mt~.  ;«PO»  +  xadjt 
F  llnaxt"  .  woa  ;  -  F 1  tnaxt".  +  wadJJ 

FlUiaxt  }■=  FI tnwxt" .  1  ink > 

•lid) 

wild?  <  if  > 


PROCEDURE  3CALEUP5 
VAR 

iiudwraadJ  1  I'vai  f 
bwaxn 

xF  j  ukd  rat' 
i>iiwn  bwdin 

wnwriwxL  2  s  anabaavi 
wiixlw  ananw.it  <'.■  nxl  do 
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dadin 

xadd  5-  xcan  -  *nnnnHt".xPO»< 
addj  !•  Mean  -  «n»n«KV'.KPosi 
ananaxt'*.x»*os  ?■=  xcari  -  xadc  /  2? 

anaria;<t''.ai>*u*  !=  aeon  -  aadd  /  2? 

ananaxt  • -  ananaxt-* link! 
and? 

at  id 

alsa  dadin 

fllnaxt  fllb-sa? 
wiiila  fltnaxt  <>  nil  do 
uadi.il 

;<Jdd  ?•“  Kk'tn  -  f  1  tnaxt-.;<POS? 
aadd  i=  acan  -  fltnaxt-.  af»oa? 
fUrwKt'.xKK  ♦-  xcan  -  xadd  /  2? 

f  1  tnaxt-.ai*o*  i“  acan  -  aadd  /  2) 

fltnaxt  S*  fltnaxt-. link? 
and  ? 

and?  -C  > 

unu  ? 

PROCEDURE  SCALEDOUN f 
VAR 

xaddraadd  «  raai) 

dadin 

if  jLkdraf 
than  dadin 

ananaxt  !»  anabaaa? 
wiiila  ananawt  <>  nil  do 
dadin 

;<add  5“  xcan  -  ananaxt-  •  xpo*  ? 
aadu  J-*  acan  -  nn»n»xt“.aPo*l 
anariax t- . xpos  !=  xcan  *  xadd  *  21 

arianai<V'.apos  acan  -  aadd  *  2? 

ananaxt  ?>  ananaxt-. link? 
and? 

and 

alaa  daain 

flUiaxt  fltbasa? 
wiiila  fltnaxt  <>  nil  do 
dadin 

xadw  «•“  xcan  -  f  1  Lnaxt-.xPOS? 
aado  acan  -  f  1  triaxt- .  aPO»  ? 
f ItnaxV.xPO*  •  xcan  -  xadd  *  2? 

f ltnaxt-.*Po*  :=  acan  -  aadd  *  2? 

fltnaxt  :•*  f 1 tnaxt-. link? 
and? 

and?  <  if  s 

and? 

END. 


Program  filehakeri 


USES  thesis tuf f* 


VAR 

dhmirifile  i  file  uf  sfnpi 
eiririfile  :  file  uf  aircraft* 

i f J  •  0  •  * 200  * 

PROCEDURE  HAKE3HIPFILE* 


bedii  i 


with  jhipinfilv"  do 


bed  in 
1  ink 
dess 
nun 

KPUS 

anus 

hi« 

aue 

fcrrid 

ddrns 
1  rsew 
srsa« 
lrmek 
ir*Pk 
si-min 
s  riMx 
1  mm 
1  max 
min  Ls 
bin  L* 
dunk 


nil » 
cvl 
01 
31 
10* 
025* 
20* 

40* 

30* 

0* 

40* 
0.4  > 
0.7  * 
0* 

20* 

10* 

40* 

0* 

0* 

false* 


end)  <  with 

put  (dhipinf ile) * 
for  i  .a  l  to  4  du 
budin 

with  dhipinfile"  du 


bed  in 
link 
tried* 
him 

HIM 

sue 

f  c  md 

n  id 
1 1'deia 
dl'deM 

1  mek 
d  rWHk 


■=  mil 
dest* 
-  0* 

*  025* 

-  20* 

*  40* 
pi  30* 

-»  0* 

-■  20* 

■*  0.4  * 
-»  0.7  * 


✓  »*. 


PROCEDURE  MAKEFRENDL'i'rtIR  i 


uaairi 

for  i  i-  1  to  24  do 
u«yii) 

with  wirinf  ila~  do 
badiri 

link  J*  nil; 
xpow  i-  j> 

jpji  10; 

wit  o; 

dzml  h  •  -*  Of 
valctw  !*  0 > 

iff  frond; 

wufrnd  ;■»  intcpt; 

in  trior  !  -»  120;  <  in  a i nut as 

wi  rnat  :=•  40 ; 
wianv  J*  120 ; 

<w*  I  —  6r 

wwapk  !*  0* jjp 
wwarnW  !<  20 r 

wwaanv  !  -<  60 ; 

cwwa  i  of 

1  :  ba*in 

;<po»  :  •*  s; 

opus  ♦*  10.3; 
wit  20000; 

w2«Ut  023; 
valctw  1*  25 ; 
and; 

2  i  badin 

hpos  ; •  5.5; 
wpo*  !•»  10.5; 
wit  20000; 

w^ath  !-*  025; 
valctw  ?■»  25; 
and; 

wnd;  <  ca»a  > 

wnd;  4  with  > 

put  (wirinfila); 
and;  <  for  > 

for  i  1  to  6  do 
badiri 

with  wirinfila'*  do 
Liwtin 

link  J-“  ml; 

;ipus  5-*  3; 

vpo %  l*  10; 

wit  0; 

wan  tit  •  —  0; 

valctw  ;■«  0; 

iff  J-»  frand; 

wcfrnd  J daw! 
dvwnur  in  240; 


aawrnd  ;»  200 1 

L'dbH  i  Of 

1  •  badm 

«Htis  :  -  ( 

ypos  :=  2: 
ait  :=  1: 
azatii  : -  0: 
valet*  :=  2: 
and} 

2  :  badin 

;ipus  i-  i; 
*po*  t-  2t 
alt  S a  1; 
azath  02 

valet*  }“  2C 
and} 

3  :  baa  in 

;<po»  1? 

apos  Ja  H 
alt  {a  1; 
azatii  : -  02 
valet*  {»  25 
and! 

and!  <  caaa 

id  I  <  with 


01 

231 

130001 

025} 

25} 


121 
26 1 

15000} 

025} 

25} 


a  19} 
a  14} 
a  15000} 
a  025} 
a  25} 


and}  < 

and}  { 

pot  (ainnf  ila)  } 
and }  < 


MAKEFRENDLYAIR 


PROCEDURE  MAKEATTACKAIR1 
baaiiri 

for  1  5  a  i  to  6  do 
for*  a  Ja  1  to  3  do 

bad  m 

mi  tii  ai  i*  inf  ila"  do 
badin 

link  nil} 

azatii  i-  270 
iff  I -  anaa 
z*apk  : a  0.60 


link  i-  nil} 
azatii  i-  270} 
iff  i a  anaaa} 
aaapk  Ja  0.60} 
aaaanv  i-  180} 
aaarnd  la  30 } 
uoatipk  I  -  0.55} 
ca*a  1  of 
1  1  baa  in 

if  J  =  1 

tlian  badin  ;<po*  Ja  30.0}  *pos  ;»  30.01  anc 
aisa  if  a  a  2 

than  baa  in  :<pos  !»  50.51  *po*  5*  30.51  enc 
alsa  badin  ;<po»  Ja  50.51  *pos  i*  29.51  eno 
alt  :*  200001 
valcta  S»  3501 


> 


bomb  i-  2 } 

ends  <  easa  1 

2  I  basin 

if  J  =  1 

than  beam  ;<pos  l-  60. OS  ypos  !*  40.  OS  and 

alsa  if  j  -  2 

than  baain  kpos  !*  60. 3S  spo*  ! »  40. 5S  and 

elsa  baain  xpos  ?  =  60. 5S  spos  t»  39. SS  and! 

ait  :=  10000S 

valets  t-  400 S 

asta  J-  6S 

uumti  OS 

andS  <  ease  2  > 

3  :  bad  in 

if  J  ■=  1 

than  beain  :<po«  J «  60. OS  spos  J*  30. OS  and 

else  if  J  »  2 

than  baain  ;<pos  5-  60. SS  spos  • 3  30. SS  end 

alsa  baa  in  ;<pos  J  -  60. SS  spos  !*  29. SS  andS 

alt  1=  10000S 
valcta  :=  400 S 

aaa  t*  6S 

boab  !*  OS 

and#  <  casa  3  > 

4  :  badin 

if  J  »  1 

than  beain  *pos  J*  60. OS  spas  1  =  20. OS  and 

alsa  if  J  =>  2  . 

than  baain  :<pos  5-  60 .SS  spos  !*  20. 3 S  and 

alsa  baain  apos  J*  60. SS  spas  J  *  19. SS  andS 

alt  J*  10000S 
valcta  J=  400 S 
asa  : -  6  S 
buab  J*  OS 

end#  <  casa  4  > 

3  i  baain 

if  j  •>  1 

than  baain  :<pos  !*  63. OS  spos  5=»  33. OS  and 

alsa  if  J  -  2 

than  basin  ;spus  l-  63. 3 S  spos  i3.3S  end 

else  beam  ;;pu>  I-  a3.3S  spos  !-  34.3S  andS 

ait  I  -  1 0000  S 
valets  !-  330# 

asa  S-  4S 
bunb  •  -  2S 

andS  <  casa  3  > 

6  1  baain 

if  j  -  1 

than  baain  ;;pqs  •-  63.0S  epos  5=  2S.0S  and 

else  if  b  3  2 

titan  baain  :<pos  S-  63. 3 S  spos  25. 5 J  and 

alsa  baain  ;<poa  -  65. 3S  apos  i 3  24. SS  andS 

ait  :3  10000 S 
vaicta  5-  330S 
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asa  J-  4  i 
burnt)  21 

end?  <  case  6  > 

afiu)  -C  cas  e  > 

end?  {  with  > 

nut  (ai rinfiln) ? 

end?  {  for/for  > 

end?  <  MAKEATTACKAIR  > 


bedin  <  MAKEFILES  > 

rewr  x  te  <  ship inf  ile»  'np2 : sh ip inf i le  4  da ta '  >  ? 
rewrite  (axi-mfile  t  'np2Iairinf  ile.data  ' ) ? 
makeshxpf  ilei 
mwkef  rendl  wax  r  ? 
makes L  tdckai  r? 
ciusv  (shipxnf  tier  lock)  ? 
close  <  ai  r  inf  ile»  luck >  ? 
and.  {  MAKEFILES  > 


PROGRAM  FILECHCKER? 

USES  Li  lesis  tuff  ? 

VAR 

siipuutf lie  :  file  of  ship! 
axruutfile  :  fils  of  aircraft? 
x  *  J  *  0*4 200 ? 

kind  :  string? 

outf lie  J  taxi? 

PROCEDURE  SHIPCHECK? 

PROCEDURE  3HIPWRITE? 

baa  ill 

wxth  shpoutfile"'  do 
begin 

»r x tali  i< uutf x la > J  writsln< outf ils> f  wr i tain ( outf i la > J 

wri  Lelmoutf  ilef  '  'rkindr'»  nuabtr 

wri tain <  outf i Is) ? 

wrxta  < ou tf x ls> 'X-Y  coordinats  position  :  (')? 

wrx Lain (outf ila t kpos 5  4 ! It ' t ' »sposS  4 ! 1 1  '  )  4  '  )  ? 

wrx Lain (outf ilsr  '  Cur  rant  direction  of  movement  J  ' »Pi»:3r ' 4 ' > ? 
wrx Leln< outf i le» ' Currant  speed  of  advance  :  '  >»oa:3> ' .  ' )  i 

wrx Lain (uutfxlar  ' Number  of  Ions  range  3AM' 's  :  ' » lrsa*S3»  '  4 ' ) ? 

wri Lalri<ouLf liar 'Number  of  short  range  SAM''s  t  ' >srsa*J3» ' 4 ' > ? 

wri Laln(uutf ilar 'Number  of  Missile  hits  taken  i  ' *mhitsS3» ' 4  '  > » 

wri Leintuutf ila» 'Number  of  bond  hits  taken  :  ' »bhits53» ' 4 ' ) ? 

end  ?  <  w  x  th  > 

arid?  <  SHIPWRITE  > 


1 


m 


I 


untalntoutf  ile)  !  writelntoutf  il»)  I 

'  akinda  '  nuabtr  '  rnu*<3>  '  .  '  )  ? 


PROCEDURE  IMTCPTURITEI 
bed  in 

with  ai routf ile™  do 
begin 

writeln<outf ile) ? 
wri lelnioutf ilea ' 
ucit«ln(autfil*) ? 

write  <  outf  i  lea  '  X-Y  coordinate  position 
wn Lein ( au tf ilea  »pos: 4 : 1 a  '  a  ' i^pas J4Sla'). 
wri Lein (outfi lea  ' Currant  court*  /  heading 
wri twin < outf ilea 'Current  velocity 
wri Lein (outf ilea 'Current  eltitude 
wri Leln(outf ilea 'Nueber  of  AAH''s 
wr i Leln(outf i le>  ? 

wri LelnCoutf ilea 'Note  :  Altitude  *  0  =«*>  Aircraft  is  on  carrier 

tfnJt  {  with  > 

end*  -C  ATTACKWRITE  > 

PROCEDURE  AEUWRITE? 


> ; 


( '  >  ? 

'  aazeth:3a ' 
' r velcty :5a 
'  aalt.5a ' • ' 
S5f  '  . 


.  '  >  ? 

'  .  '  >  ? 
)  ? 

'  >? 

'  >  ? 


begin 
wi  til 
ueu 
wi 
wi 
WI 
WI 
WI 

wr 

wr 

!•  I 

»r 
wr 
end  I 
end? 


wri Lein (outf ile) ?  writeln<outfile>? 

'akinda'  aircraft  nuaber  ' i nu* : 3 a  ' .  '  )  ? 


ai routf i le™  do 

.ii 

i  Leln(outf ile) ? 
i  LelnCoutf ilea ' 
i  telnCoutf ile) I 

ite  (outf ilea 'X-Y  coordinate  position 
i  LelnCoutf  ileixrasM:  lr  '  *  '  itrosU!  If'). 
i teln<autfi ler 'Current  course  /  heading 
i LelnCoutf ilea 'Current  velocity 
i telnCoutf ilea 'Current  altitude 
i LelnCoutf ile) ? 

i twin < outf ilea 'Note  !  Altitude  - 
<  wi Lh  > 

{  ATTACKWRITE  > 


>  ? 


C  '  >  ? 

'  aazath:3a ' . ' >  ? 

'  aveletyJSa ' . ' >  ? 
' aal t : 5 a ' . ' >  ? 


Aircraft  is  on  carrier.')? 


> 

•data' 


AIRCRAFT 


>  ? 


)  ? 


begin  <  AIRCHECK 

reset  < ai i-outf  ilea  ' aba . 2J ai routf  i  1 

i  :=  0? 

page  (uutfilw)? 
writeln  <uutfilea' 
while  NOT  eof  (airoutfile)  do 
begin 

i  •  -  i  +  1  ? 

with  it  routf  ile""  do 
case  iff  of 

enemy  :  begin  kind  I 
fiend  J  case  acfrnd  of 

intcpt  :  besin 

kind  J*  'Fiehter/interceet' ? 
intcetwrite? 
end? 

jew  :  Lies  in 


'Eneey'?  attackwrite? 


end? 
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kind  .»  'Earl*  warnins"? 


aewwri  be? 
end? 

end?  <  case 

end?  <  case 

deb  <ei  rciutf  ile)  ? 
if  i  Mud  3-0 
Uteri  uediii 

Hade  (uutfile)? 
wnbeXn  (ootfiler  ' 
end? 

end?  -C  while  > 

close  (eiroubf lie* lock) ? 
end?  <  ai  (-check  > 


acfrnd  > 
iff  > 


AIRCRAFT 


owdin  -C  CHECKFILES 

rewrite  < uutf ile» ' . rs232 ' > ? 
diiipclieck  ? 

Jl  rci  ieck  ? 

close  (oubf iler lock) 
end*  < 


conb 


CHECKFILES 


> 


ROGRAH  INTRO ! 


USES  chainstuff  t  thesistuff  I 
PROCEDURE  INTRODUCTION! 
begin 

sorncnbro(cl r > !  ^crncnt  po(  off  >  !  writeln!  writeln! 

writeln  ('Tin*  is  the  AIR  BATTLE  ANALYSER  (ABA)  startup  program.  '  > ! 

uri Lain! 

wri beln< ' If  you  have  not  already  don*  sot  Pleas*  insert  the  ABA.  2  disk  'it 
wribeln  ('in  disk  drive  nuaber  2*')! 
u  r  i  be  i  n  i 

writeln  ( 'Throughout  the  execution  of  this  rrasraa  sou  will  be')! 
wribeln  ('presented  with  several  selection  options*  In  each  instance')! 
wribeln  ('please  choose  sour  desired  option  bw  tspinS  the  appropriate' > ! 
wribeln  ( ' reseonve »  if  sou  here  a  beep*  simply  attempt  to  re-enter. ')! 
wri twin ! 

wribeln  ('Care  should  be  taken  not  to  hold  down  a  selection  kes.  ')! 
wribeln  ('It  new  produce  undetermined  results  due  to  the  auto  repeat  ')! 
wribeln  ( 'function  uf  the  keyboard*  ')! 

wri twin! 

wribeln( 'You  was  wish  to  have  available  some  paper  in  order  to  wake  ')! 
wribeln! 'notes  bo  yourself*  or  to  Plot  the  current  positions  of  the  ')! 
writ*ln( 'forces*  and/or  to  determine  movements  of  sour  forces.')! 
wribeln!  wribeln!  continue! 
end!  <  introduction  > 

PROCEDURE  INTRO TWO! 

Lied  in 

scrncribro(clr ) !  scrncntro(of f > !  writeln! 

wr i belr)( ' For  sour  convenience  the  initial  positions  are  determined  ')! 
wri Leini 'and  lased  out  on  a  100x100  strid  where  each  unit  is  10  NM.  ')! 
writeln! 'For  example  if  the  carrier  is  at  (lOrlO)  and  an  attack  ')! 
wribeln! 'aircraft  is  at  (89.5*10)*  the  aircraft  is  79S  nautical  wiles  ')! 
wri belli! 'due  East  of  the  carrier*  The  arid  is  oriented  as  follows*  ’)! 
wri  belli ! 


wri  belli!  ' 

000 

-  North 

is 

to 

the 

bop  • 

'  >  ! 

ui’i  Lwlii<  ' 

090 

-  East 

is 

to 

the 

right. 

'  )  ! 

wri teln(  ' 

180 

-  Sou  th 

is 

to 

the 

bottom* 

'  >  ! 

wri beln!  ' 

270 

-  West 

is 

to 

the 

left. 

'  >  ! 

wri  belli! 

wri belli! ' Due  bo  the  nature  of  the  screen  and  the  computer  graphics  ')! 
wri beln! ' there  will  appear  bo  be  some  distortions  when  the  100x100  ')! 
wri belli! ' dr id  is  transformed  bo  the  screen' 's  dimensions*  Also*  be')! 
wri  belli!  '  awa  re  bftab  the  distances  depicted  on  the  graphic  displays  ')! 
wri belli! 'are  deceptive  due  bo  the  sic*  of  the  figures*  ')! 
wribeln!  wribeln! 

wribeln  ('  Now  Let''s  Begin  ')! 

wribeln!  wribeln!  continue! 

end  ! 


PROCEDURE  INTROTHREE) 


begin 

sornen t ru(el r > )  sc  men  t  ro(  of  f  )  )  untaln)  unt(ln) 

wri teln( ' IP  sou  have  plased  this  game  before  then  sou  mas  be  familiar')) 
writeln( 'with  the  default  input  data  base  and/or  sou  aas  have  ')) 
wri Leln< 'previouslg  reaodeled  it  to  suit  sour  needs.')! 
wri twin) 

wri Lwin< 'Plwase  select  one  of  the  following  options  :  ')) 

writeln)  writeln) 

writelnt'  1  :  BUILD  DATABASE)  WITH  REVIEW  of  default  database. ')) 
wri twin ) 

wri twin <  2  :  BUILD  DATABASE)  WITHOUT  REVIEW  of  default  database.')) 

wri tw i  1 1  5 

•in  Lelut  '  3  :  Usw  Li  to  .  (ABASE  parameters  with  HO  REVIEW.  ')) 

bll'l  twin) 

wri Leins'  ■)  5  Use  tiiw  DATABASE  Parameters  retained  PROM  LAST  QAHE.')) 

writeln)  writeln)  writeln) 

wrxtw  <'  Tspe  a  number  from  1  to  4  i  ')) 

rwed  (selection)) 

sc  men  trot  on)  ) 

wiiiie  HOT  (selection  in  C'l'..'4'3)  do 
begin 

swrricntrodiel ) )  writeln) 

write  ('Must  be  a  number  from  1  to  4  M  —  Please  trs  amain  i  ')) 
read  (selection) 
end) 
end) 


begin  <  INTRO THESIS  > 

introduction) 
iiitrotwu) 
in tro threw) 
case  selection  of 
'1'  S  begin 

seteval  ('complete  program')) 
seLcheiii  (  '  .d2/  thesisl  .code ' ) ) 
end) 

'2'  J  begin 

seteval  ('allow  change')) 
seLchexn  ( ' .u2/thesisl .code' > ) 
eriu) 

'3'  !  begin 

seteval  ('use  default')) 
setchwin  (  ' .  u2/  tiiesisl  .code '  > ) 
end) 

'4'  !  begin 

seteval  ('last  parameters ' >  ) 
setchaiii  <  '  .d2/thesis3.code'  > ) 
end) 

end)  <  case  > 

end.  <  INTROTHESIS  > 


86 


ROGRAM  3TARTEH! 


USES  ciiamstuff » thwsistuff  ! 


JAR 

^lupinfiliH  shipdwta  ■  file  of  ship! 
ai i* inf ile»  wirdata  5  file  of  aircraft! 
kindrchoica  •  iiririW! 
i >  J  :  0. .200! 

Pruc«uur«  Part two!  forward! 

Procedure  Partthrwa!  forward! 

Prucadura  Partfour!  forward! 


PROCEDURE  DEFAULTFORCES ! 


< 


PART  ONE 


bwwin 

■xcrncntru(elr) ! 
wri tain! 
wri tain  < * 
wri tain! 

wri tain  (  '  1 

wri tain  C ' 

wri tain  <  ' 

wri tain  < ' 

wri tain  (  ' 

wri tain  <  ' 

writaln! 

wri tain  <  '  4 

wri tain  <  ' 
wri tain  <  ' 
wri tain  (  ' 
wri tain  <  ' 


scrncritrotof f  > !  writaln! 

FLEET  COMPOSITION  ')! 

Carriar  -  with!  ')! 

2  suuadrona  of  intarcaptor*  (24  aircraft)*  ' 
6  AEU  aircraft.  ')! 

2  short  ranaa  aissila  batteries  (40  aiaailas) 
Saarch  radar  and  airborna  intareapt  receivers 
SliiP/shiP  and  *hip/air  coaaunicationa.  ')! 

Cruisers  (missile  picket  ship*)  -  aach  with!  ')! 
1  Iona  ranaa  missile  batters  (20  missiles). 

1  short  ranaa  missile  better*  (20  missiles). 
Saarch  radar  and  airborna  intareapt  racaivars 
Ship/ship  and  ship/air  coaaunicationa *  ')! 


writaln!  parttwo! 

ai  id  ! 


< 


PART  ONE 


> 


PROCEDURE  PARTTWO! 


liawin 

wri tain  (  ' 
wri tain  < 
wrx  tain  (  ' 
writaln  < ' 
wri tain! 
arid  ! 


4  Dastrosars  -  aach  with!  '  > ! 

1  short  ranaa  aissila  battarw  (20  nissilas). 
Saarch  radar  and  airborna  intareapt  racaivars 
Ship/ship  and  ship/air  coaaunicationa.  ')! 


continue! 


part  threw! 


< 


> 


PARTTWO 


PROCEDURE  PARTTHREE) 


PROCEDURE  MISSILEURITE) 


biMiin 

scrncntro(cl 
wit.il  shiPinf 
LiwWm 
wri  twlnt  ' 
wri twin) 
uriUlut  ' 
wri twin) 
wri twlnt ' 
writwlnt ' 
wri twlnt ' 
wri twlnt ' 
wri twin) 
wri  twilit  ' 
wri twlnt ' 
wri twlrit  ' 
wri  twlrit  ' 
wri twin) 
wri  twilit  ' 
wri twin) 
wri twlnt ' 
writwlnt ' 
wri twin) 
arid) 

Wild) 


r>)  scrricntrotoff  > )  writwln) 
ilw'*  do 

MOTE  ::  DISTANCES  -ara  maasurad  in-  NAUTICAL  NILES.  ')) 
wri twin) 

MISSILES  ')) 


Sliurt  RanUw  surf aca-to-ai r  aissilws 
Probability  of  kill 
Miriiaua  ranaa  of  firind  envalora 

Maxiaua  ranta  of  firinai  anvalopa 

Lund  Ranaa  surf aca-to-ai r  wissilws 
Probabilitw  of  kill 
Miniaua  ranaa  of  firind  anvalora 

Maxiaua  ranaa  of  firina  anvalora 

«ri twin) 

RADARS  '  > ) 


SRSAN  '  > ) 

' * s  r  apk : S : 2 > ) 
' israinSS) ) 

'  israaxSS) ) 

LRSAM  ' > ) 

' * lrawk:s:2> ) 
' t 1 rainSS) ) 
'ilraaxiS) ) 


Ship  swarch  radar  aaxiaua  ranaa  1  '  i ssrndSS) ) 

Fira  control  radar  aaxiaua  ranaa  i  'rfcrna.S)) 

continua) 

<  with  > 

<  MISSILEURITE 


PROCEDURE  SHIPURITE) 
uwdiii 

witii  shir  inf  i  la""  do 
bwd  in 

writwln)  writwln) 

writwlnt 'Ship  nuabar  '»iS2»'  is  a  'rkind*'.')) 
wri tain) 

writw  ('  X-Y  coordinata  position)  tx»w> 
wri  twlnt  '  rxroti  4!  1 1  '  t  '  ivrosMi  !»'>'>> 
writwlnt'  Dirwctiun  of  aovaaant)  PIN 
writwlnt'  Spwwd  of  advanca)  SOA 

and)  <  with  > 


' rpiaS3> ) 
' » soa.3> ) 


SHIPURITE 


bwuin  “C  PAR  i  THREE 

rwwwt  t ship inf ilw r 'ABA. 1 : shir inf i la. data' > ) 
missi  iwwn  tw) 

sorncntroiclr) )  scrncntro  t  of  f  > )  writwln) 
writwlnt'  NOTE  IS  SPEEDS  -ara  maasurad  in-  KNOTS.  ')) 
wn  twin) 

writwlnt'  SHIP  PARAMETERS  ')) 

i  S ■»  0) 

wiulw  NOT  aof  tsiiiPinfila)  do 
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bwiin 

i  i  r  II 
with  shipinfile''  do 
begin 

case  class  of 

cv  :  kind  S»  'carrier'! 

•Jest  !  kind  J=*  'dest rower ' ! 
crsr  J  kind  5-  'cruiser'! 
end!  <  case  > 

if  t  i  mod  2  “  1  >  arid  (  i  <>  1  ) 
then 
litHiii 

writeln!  writeln!  writeln! 
continual  scrncnt rot  cl r ) I 

scrncntrotoff ) !  writeln! 

wri  talri<  '  SHIP  PARAMETERS  cont.  ')! 

and  I 

shipwri  tel 

arid!  <  with  > 

get  (shipinf  ila)  I 
and  I  <  win  la  > 
dost  < shipinf  ila»  lock)  I 

wri  tali  1 !  writeln!  continual  i*artfoupl 

tt„dJ  <  PARTTHREE  > 

PROCEDURE  PARTFOURI 

PROCEDURE  AIRSETUPI 

begin 

scrncntrotclr) »  scrncntrot off > I  wpitalnl 

wri tain ( '  AIRCRAFT  ) I 

wri tain! 

wri taint ' Tha  initial  same  »et-uP  fop  tha  aircraft  follows!')! 
wri tain! 

wri  taint  'Thar*  is  one  CAP  <coabat  air  i»atrol>  airborne  consisting' > I 
wri taint  'of  2  fighter/intercept  aircraft.  Thau  ara  orbiting  at')! 
wri taint '20.000  f  t. »  approximated  5  MM  ahead  of  tha  carrier  ')! 
wri taint 'All  remaining  fighter*  are  onboard  the  carrier. '>! 
wri tain! 

writwlnt 'Thera  are  three  AEU  (airborne  eerie  warning)  aircraft') I 
wri  taint  'deployed  at  15.000  ft.,  about  200  MM  ahead  of  the  task  force.' 
wri taint 'All  other  AEU  aircraft  are  onboard  the  carrier.')! 
wri tain! 

wri taint ' All  aircraft  of  the  name  ter*  will  carre  the  same  ordnance')! 
wri taint ' load  and  will  have  the  same  functional  parameters.  ')! 
wri tain! 

wri taint 'Following  is  a  sample  parameter  list  for  each  aircraft  tern*.') 
wri tain! 
wri tain ! 
ai  id! 


wri tain! 


continue! 


PROCEDURE  AIRINFQ  ? 


basin 

with  airinfila"*  do 
bwiin 

wri  taint 

writs  (  '  X-Y  coordinate  position 
wri  twin  t  srpos  :  4 1 1  f  '  f  '  f  ypos  S4 !  1  »')')? 
writwlnt'  Altitude 

writwlnt  '  Cuurse/headinal 

wi‘italn('  0 round  speed 

and!  <  with  > 
and ?  < 

PROCEDURE  ATTACKURITE? 


!  (  ' )  ? 

:  'talt:6)t 
:  ' razathJA) ? 

:  ' t velctwlb) ? 


AIR INFO 


basin 

with  wii'infilw"  do 


basin 

scrncnl rutcl r ) ?  scrncntrotoff ) r  writaln? 

wri Lwln< '  ENEMY  AIRCRAFT  ')? 


wri twin? 

wri taln< 'Attack,  aircraft  nuabar  :  'f1:2>? 

wri tain? 


wri taln< ' 
wri taln< ' 
wri twln< ' 
wri Laln< ' 
writwln(  ' 
wri taint  ' 
air info ? 
wri tain? 
and? 
and? 


Nuabar  of  ai r-to-surf aca  aissilas  (ASM): 
ASM  probabilita  of  kill  : 
FirinS  anvalopa  (das raw*  about  nosa)  i 
ASM  aaxiaua  ransa  ! 
Nuabar  of  boabs  ’ 
Boab  probability  of  kill  t 


' rasaib) ? 

'  f asaak : 6 : 2  >  ? 

'  rasaanv:*) ? 

'  latarntii) ? 

' rboabtb) ? 

'  rboabPk :4: 2 )  ? 


wri tain? 

continua? 

•C  with 

> 

< 

ATTACKMRITE 

PROCEDURE  INTCPTURITE? 


bwSin 

with  airinfila'"  da 
basin 

scrnentrotclr) ?  scrncntrotoff)?  writaln? 
wri taint'  F I QHTER/ I NTERCEPTOR 

wri  talri? 

wri  taint 'Aircraft  anduranca  (in  amutas) 
wri taint ' Intercept  radar  dataction  anvalopa 
writwlrit ' Intarcapt  radar  aaxiaua  ransa 
writwlnt 'Nuabar  of  air-to-air  aissilas  (AAM) 
writalrit'AAM  probability  of  Mill 

writwlrit 'AAM  firinS  anvalopa  (daSraas  about  nosa) 
writalrit'AAM  aaxiaua  ransa 
ai rinfo? 


writaln? 
and  ? 
and? 


'  >  ? 

r intndr >6)  ? 
raianviA) ? 
rai rns:6) ? 
laaaii) ? 
raampk :<4 1 2 )  ? 
f  aaaanv  S  6 ) ? 
Ftaarnali) ? 


writaln? 
<  wi  th 


continua? 

> 

< 


INTCPTWRITE 


PROCEDURE  AEUWRITE) 


bad  in 

with  dirinfile~  do 
bad  in 

scrncnLro<clr>  >  serncntro(off > >  writaln) 

wri teln< '  AIRBORNE  EARLY  WARNING  ')) 

wri  Lain) 

wri Lein (  ‘  Ai  re raft  endurance  (in  minutes)  !  '»aewndrJA>? 

wri  Lain'  '  Air  search  radar  naxi»im  rande  •  'idewrndi 

j x  linfut 

wrxtein)  writaln)  cuntinuai 

end)  -C  ai  Lit  > 

ai  id  )  <  ATTACKWRITE  > 

bad in  <  PARTFOUR  > 

reset  <  ox  r infile*  '  ABA.  1  iai  rinf ile.data' )  ) 
ax  i-jaLuri 

x  o) 

wiiilw  NOT  eof  (airinfile)  do 
badxn 

wx Li i  diririfila"  do 
case  iff  of 

ai  i  am*  :  beam 

i  J-  i  +  1) 
dttackwrite) 
arid) 

frend  :  if  alt  >  0 

khan  if  defend  *  aew 
than  dawwrita 
else  intcFtwrite) 

and)  <  cast  iff  /  with  > 

set  (airinfile)) 

and)  <  whila  > 

close  (ai rinf i let  lock) ) 

and)  <  PARTFOUR  > 

ROCEDURE  QAHECHOISES) 

ueaxi  i 

-jC  i'iicii  b  ro  (cl  r  >  )  sc  merit  eo(of  f  >  ) 

weiLaln)  wri Lain)  wrikaln)  writaln) 

wrx Lain  ('  How  do  sou  wish  ko  sat  of  tha  elasars?  ')> 

wri Lai  n  i  hp  i  tain) 

writaln  ('  1  !  Usa  tha  default  f leet/shiF  and  aircraft  data-base. ' > ) 

wri tain) 

writaln  ('  25  Usa  tha  default  fleet  and  build  sour  own  aircraft  data, 

w r x  tain ) 

wrx Lain  ('  3  •  Usa  the  default  aircraft  and  build  sour  own  fleet.  ')) 

t>  •xtaln) 

writaln  ('  4  J  Build  sour  own  fleet  and  aircraft  data-base. ' > ) 

writaln)  writaln)  wrxkeln)  writaln)  writaln) 
write  ! 'Tarn  a  nuaber  froa  1  to  4  J  '  )) 


raad  (selection) ! 
sc  merit  i-o (an)  I 

while  NOT  ( salve tion  in  do 

basin 

scrucntro  (bel)l 
wri tain! 

write  (  Must  be  a  nuaber  froa  1  to  4  !  !  —  Please  tr*  asainJ  ')! 
read  < awl act ion ) 

end! 

<  SAhECHOICES  > 

PROCEDURE  SH IF TRANSFER! 
basin 

cwswt  (shirinf ilef 'ABA. 1 J shiPinf ile . data' > ! 

rewrite  (shipdate  ?  '  ABA. 2 J  shiPdata .data '  > I 
repeat 

shii-da  te'*  {-  sliipinf ile~l 
r-ut  (slnpdata)l 
•Jet  (shiPinf ile) I 
until  euf  (shipirrf  ile) ! 
clusa  (shiPinf ilet lock) ! 
close  (shipdata  dock)  I 
until 

PROCEDURE  AIRTRANSFERI 
basin 

reset  (airinfile  r  'ABA. 1 • si r inf ile .data '  >  I 
rewrite  (airdata  »' ABA.2Jairdata.data' ) I 
rarest 

airdata'*  J  *  airinf  ile"! 
put  <  airdata)! 
sat  <  airinfile)! 
until  euf  <  airinfila)! 
close  (airinfile  floe k)l 
elosa  (airdata  flock)! 
and! 

PROCEDURE  PREPACK! 
beSin 

scriicritru(cl r )  I  *crncntro(off  > ! 
writaln!  an  tain!  aritalnl 

wi-ituln  ('Sinca  sou  hava  dacidad  to  usa  tha  dafault  flaat  and  attackf')! 
writaln  ( Wou  maw  wish  to  rarest  tha  dafault  database  raviaw.  ')! 
writaln!  writaln!  sesnosel  I 

case  aeleutiun  of 
' V ' f ' a '  J  basin 

writaln!  writaln!  writaln! 

continual  daf aultforcasl 

and! 

'N ' t 'n '  J  basin 

writaln!  writaln!  writaln! 
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and) 

and) 


cun Linus I 
and  I 

< 


badin  <  STARTEM  > 

datcval  (choica)) 
satchairi  (  ' •d2/tha*is2» cods' )  ) 
if  crioic w  -  'coftplata  i>rogm' 

Uiwn  bua  in  dafaultf  orc»»)  daaachoicas)  and 

wisa  if  choica  ■*  'allow  chsnda' 

than  badin  choica  S=»  'no  raviaw')  daaachoicas)  and 
alsa  if  choica  *  'usa  dafaulb' 

than  badin  choica  !»  'no  raviaw')  sal act ion  ! »  '  1 ' )  and 
alsa  salaction  i»  ' 0 ' I 

casa  salaction  of 


J  basin 

if  choica  <>  'no  raviaw' 
saicval  ('dafault')l 
shiptransfar) 
airtransfar) 
and) 

•  basin 

satcval  ('build  air')) 
shiptransfar ) 
and) 
i  badin 

satcval  ('build  flaat')) 
airtransfar) 
and) 

:  satcval  ('build  all')) 

<  casa  > 


prarack) 


3TARTEM 


PROGRAM  CHANGEM) 


USES  chainstuff » thasistuff ) 


VAR 

siiipinf  ilar  slupdata  1 
uinrifilar  airdata  5 
■m  i  1-comp  :  aircraft) 
sliincuap  :  ship) 
choica ’kind  i  strind) 

i t J  2  0 • . 200 ) 

imsschnd  2  boolaan) 

landth  i  0..10) 

taap  !  intadar) 


Procadura  Radoship)  forward) 

Prucadura  Raduaissi las )  forward) 


fila  of  ship) 
fila  of  aircraft) 
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Cl  Cl  CL 


Prucwiurii  Raduf  I'innu)  forward! 

Pi'acwJura  Raduanaaw!  forward ! 

Procadura  Chndintcpt!  forward! 

Prucedu ra  Chnwaaw!  forward! 

rocadura  Coordinatas!  forward! 
rocadura  A1  b.Azntii!  forward! 
rucadura  Ualucitias!  forward! 

PROCEDURE  CKECKVALtiE  v  lor  in  :  inbaaar)! 

bediri 

Lump  ♦-  >- wau ini  (landth)! 

wiiila  <  <  Lamp  <  lo)  or  (tvar  >  hi>>  do 
badin 

scrricntroCbal i !  wribaln! 

arita  < '  Plaasa  arttar  a  valua  batwean  '»lo52f'  and  * »hi>3»'  i  ')! 
la»ri-  raadiui( landth) ! 
and!  -C  wiiila  > 

and! 

PROCEDURE  NEWSCREEH! 
badin 

*crucntro(clr >  !  scrncntroioff > ! 

wribaln!  wribaln!  wribaln! 

and! 

-Ciincluda  . d3/ thasis2b.  taxt>  <  A  compiler  instruction  to.  includa  this  > 

<  taxi  fila  whan  coanilind  tha  codafila.  > 
<  Badinnind  taxt  fila  Thasis2b.  > 

PROCEDURE  COORDINATES! 

badin  with  *irdata~  do  badin 
i  iuwwc  raan ! 

wri talui ' Tha  aircraft''*  X-coordinate  position 
if  chandait 
than  badin 

land tii  i*  4! 

«fo»  Jw  raadraal < lanath) ! 
wri bain! 
and! 

acrricnbro<off  > !  writaln!  writaln!  wri  tain! 
wri taln< 'Tha  ai rcraf t ' 's  Y-coordinata  position 
if  chandait 
biian  badin 

lanath  i»  4! 

arus  5-*  raadraal  ( lanath)  * 
wri bain! 
and! 

and!  <  with  > 

wribaln!  writaln!  continua! 

and! 
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PROCEDURE  ALT_AZHTH* 


Q 


bedi.ii  with  ai rdata”  do  bedin 
iwuscrveni 

wri teln< ' The  aircraft' '3  current  altitude 
if  chandeit 
then  bedin 

lendtii  ♦=  31 

chuck value  (0>30000) I 

alt  *-  beer*  I 
end  f 

3cmcnbra(off  >  I  writelri!  writelnl  writelnl 
wri teln( ' The  aircraf  b'  '5  current  course/headirid 
if  chende.it 
biien  bed  in 

lendtii  5a  3) 
chuckveluu  <0*339)1 
aiabii  !-  beep) 
end  I 

end I  <  with  > 

wri twin!  uribelnl  curitinuel 
end  I 


PRpCEOURE  VELPCITIES)X  „ 

cedin  witn  ai rdata  do  btlin 
newscrwen) 

uri tuln< ' The  aircraft''*  current  dround  speed  (velocitd)  I  '*velctd!4)l 
if  chendei t 
biien  bediu 

lendtii  S*  41 
cfieckvalue  <0»2000)l 
velctd  ! -  tempi 
end) 

end)  <  with  > 

end  I 

PROCEDURE  REDQFRIEND) 
bediri 

reset  (ainnfile  * ' ABA. 1 «ai rinf i le.data ' ) I 
rewrite  v'airdata  >  '  ABA  .2  5  ai  rdata.  data '  >  I 
i  01  u  0) 

repeat 

a  1  rdata”  • 1  ainnfil  e”) 
case  ai  rdata'**  iff  of 

eneme  •  put  (ai rdata) I 
f rend  !  case  ai rdata” .acf rnd  of 

intcPt  J  bedin  1  1=  1  +  II  chndintcpt) 

aew  :  bediri  j  i  =  j  +  II  chridaew  I 

end)  <  case  > 
end)  <  case  > 

deb  v  ai rinf ile) I 


:  '*ait:S)i 


•  '*azath:3)l 


end) 

end) 


a.  Cl  Cl 


REDOFRIEND  > 


until  eof  (  eirin+'ile) » 
cIum  (eirinfile  ’lock)} 
close  (aii-data  rlock)} 
end)  < 

PROCEDURE  CHN8INTCPT) 

rocctiur*  Perttwo)  forward) 

ruCK'ium  PwLLiiree)  forward} 

ruc#'Jurtt  Pa rtf our)  forward} 

PROCEDURE  INTCPTPAR/S)  <  INTCPTPARA  partone  > 

bedin  with  airuata'*  do  bedin 

sc merit ro (off ) )  writaln)  writaln}  writaln) 

wri  telnv  'Endurance  of  aircraft  (in  minutes)  !  'nntndrS3) 

if  chandeit 
then  bad in 

land tii  5*  3} 
checkvalue  (0»255>) 
intndr  5*  tamp} 
arid} 

and}  <  with  > 

writaln}  writaln}  continue}  rarttuul 

and) 

PROCEDURE  PARTTUO)  <  INTCPTPARA  parttwo  > 

badiii  with  aii-data'*  do  bedin 

i  iwwsc  r-ean ) 

wri Lain (' The  number  of  air-to-air  missiles  (ArtM)  J 

if  chandeit 
Liian  badin 

land tii  !-  2 i 
ci lack. value  <0»31)) 
aam  I -  tamp} 
and} 

surncntro<uff ) }  writaln}  writaln}  writaln} 

wr  i  telri<  '  AAM  rrubabilita  of  kill  5  'raampk!4.2) 

if  ciiende.it 
tiiari  bedin 

lendtii  J->  4} 

aampk  ! -  read  real ( lendth > } 
writaln} 
and } 

and}  <  witii  > 

writaln}  writaln}  continue}  partthree} 

and } 


PROCEDURE  PARTTHREEi 


■c 


INTCPTPARA 


partthree 


> 


begin  with  eirdata'*  do  begin 
iwhsc  i-sxni 

writelni 'Radar  detection  vnvilopa  (daartvs  about  nose)  !  'iai«nv!3)f 
if  ciwiiaait 
then  begin 

lend tli  !»  3$ 
check value  (0f3o9)! 
aienv  J=  tempi 
end  i 

scrncritroiof  f  >  i  writelni  writelni  writelni 

wri Cwln< ' Intercept  reder  maximum  ranee  J  'rairngJ3)i 

if  change it 
theri  bee  in 

length  !-  31 
checkvalue  (0?253)i 
airng  J-  tempi 
end  f 

end!  -C  with  > 

writelni  wnteini  l":i  •  I,  iuuei  partfouri 

■C  INTCPTPARA  partthree  > 

PROCEDURE  PARTFOUR )  <  INTCPTPARA  partfour  > 

begin  with  airdate'*  du  begin 
i  lewsc  reen i 

wri teln< * AAM  firing  envelop*  (degrees  about  nos*)  :  'iaM*nv!3)) 

if  cliandeit 
then  beam 

length  J-  31 
checkvalue  (0f339)> 
aieriv  J-  tempi 
end! 

-ac men t ro< of f )  i  writelni  writelni  writelni 

wri  teln<  '  AAM  maximum  rand*  !  '  raa*rn*i3>  i 

if  changeit 
then  begin 

length  5=  3i 
checkvalue  (0f255>! 
earn  me  5  =  tempi 
eridi 

end!  <  with  > 

writelni  writelni  continue! 

end!  <  INTCPTPARA  partfour  > 

beam  <  CHNBINTCPT  > 

i  iwwac  reen i 

writelni'  Do  aou  wish  to  change  ana  of  f ighter/interceptor  ')! 

writelni'  aircraft  number  'fi!2f"'s  parameters? '  )  ) 

writelni  aesnuseli  writelni 

case  selection  of 
' V  '  f ' a  '  :  begin 

coordinates i  alt-aimthi  velocities! 


f-ut  (airdata)) 


inlcptpgrai 
Ml  Hi) 

;  f»ut  (airdata)) 
wild)  -c  CWSW  > 

end)  -C  CHNGINTCPT  > 

PROCEDURE  CHHGAEU) 

PROCEDURE  AEUPARA) 

bed  in  with  airdata''  do  beam 

acrrtciitroveff )  )  writwln)  writwln)  writwln) 

wri  twliii 'Endurance  of  aircraft  (in  minutes) 
if  chandeit 
then  bwdin 

lwndth  !*  3) 
checkvalue  (0r255>  > 
awwndr  i-  temp) 
and) 

writwln)  writwln)  continue) 

i  iwwsc  rewri ) 

wri twln( ' Ai rborue  search  radar  maximum  ranee 
if  chandwi  t 
tiiwii  uediri 

length  3) 
checkvalue  (0»233>) 
awwrnd  5-  temp) 
arid) 

and)  <  with  > 

writwln)  writwln)  continue) 

wnd)  <  AEUPARA  > 

uwdin 

i  icwsc  reel) ) 

wri twln<  Du  eou  wish  to  change  ana  of  earl*  warning  ')) 

writwln<'  aircraft  nuwbwr  '»J#2»'''s  parameters? ' )  ) 

writwln)  uesnosel)  writwln) 

case  selection  of 

'Y'r'w'  J  begin  -C  CHNGAEW  > 

coordinates )  alt-azmth)  velocities) 

awwpara)  rut  (airdata)) 

arid  ) 

'M'r'u'  I  pyt  (airdata)) 
wnd)  {  case  > 

wi  id  ) 


5  'raewndr:!)) 


:  'reewrns;3)> 


< 


CHNGAEW 


> 


PROCEDURE  MOREAIRINFO ) 


bed  in 

mi  Lii  axrdete"  da 
bad  in 

newscreen)  scmcntro  (on)  I 

land  til  41 

writ a  ('  Enter  the  X  coordinate  POSITION 

:<pus  !-  raadreal  ( lendtii )  > 

writeln)  writeln)  writeln) 

write  < '  Enter  the  Y  coordinate  POSITION 

epos  J*>  raadreal  <  lendth)  ) 

writaln)  writaln)  writaln) 

lend th  i*  0) 

write  ('  Enter  the  ALTITUDE 

cl teck value  < 0 * 30000  > ) 
alt  i-  tear-) 

writaln)  writaln)  writaln) 

lend tii  ♦-*  3) 

write  ('  Enter  the  HEADINQ/COURSE 

check value  (0*339)  ) 
e^mtii  I-  tana) 

wri tel  n )  writaln)  writaln) 

lendtii  i-  4) 

write  ('  Enter  the  VELOCITY 

check value  <0* 2000)) 
velctd  J-»  tana) 
writaln)  continue) 

end) 

ei  id) 

PROCEDURE  MASATTACK) 
bed  in 

with  eirdete'*  du 
bed  in 

newscreen)  scmcntro  (on)) 

lendtii  2) 

write  ('  Enter  the  number  of  ASM''s 
checkvalue  (0*31)) 
earn  )-  temp) 

writaln)  writaln)  writeln) 

write  ('  Enter  the  number  of  bombs 

checkvalue  (0*31)) 
bomb  i-  temp* 

writeln)  writaln)  writeln)  continue) 


•RQCEDURE  MQREATTACXf 


baa  in 

with  <urd«itd'  'Jo 
begin 

da wan v  J»  aircoapidseenv! 
aswrug  !»  di  rcoapi  eserng! 
aswpk  5  a  di  rco»p  .asePk  ! 
bumork  Ja  di  reoep*bo»bpk  i 
wo  real  p  info!  wasattack! 

umii  <  with  > 

end! 


PROCEDURE  REDOEWEMY! 

Prucadur*  Pd rt two !  forward! 

Prouadur*  Part threw!  forward! 

PROCEDURE  ENEMYPARA!  <  SNEHYPARA  par tone 

begin  with  airdata'*  do  begin 
newsc rwwn ! 

wriLelnt 'Nuatar  of  ai  i— to-surface  missiles  (ASM> 
if  change it 
then  begin 

length  :=  2! 
check value  <0»31)i 
daw  taarl 
end! 

ao  iTion t  ro ( off  > !  writein!  writein!  writaln! 

wri  twiri(  'The  ASM  probabilitw  of  kill 
if  change it 
thwn  begin 

length  5=  4! 

dawak  :  =  rwadreal < length) ! 

wri twin! 
and! 

and!  <  with  > 

wri twin!  writwln!  continue!  parttwo! 

urit|>  <  ENEMYPARA 

PROCEDURE  PARTTWO!  <  ENEMYPARA 

begin  with  dirdata"  do  begin 
nwwaorwwn! 

writwln< 'ASM  firing  envelope  (degrees  about  nose) 
if  change it 
then  begin 

length  I-*  3! 
check value  (Or  35?)! 
dsmenv  • -  temp ! 
arid! 

sc  rncn t  r o  <  off ) !  writwln!  writein!  writein! 

writein('ASM  maximum  range 


re r tone 
part  two 
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> 

:  ' rdsm>2) ! 


S  ' r  asnpk  J  4 : 2 ) ! 


> 

> 

' rasmenv:3>  f 


’ »asmrng:3> ! 


V 


F 


if  chans# i  t 
Li  ten  best  in 

lendth  J-  31 
eiiackvalue  <0*255)1 
asm rnd  5*  tamp* 


and  I 

anvil  <  with  > 

wri twin!  writeln*  continual  partthraal 


and! 

< 

ENEMYPARA 

parttwo 

> 

PROCEDURE  PARTTHREE1 

< 

ENEMYPrtRA 

aartthraa 

> 

bed  ill  with  ai  rdata"*  do  bad  in 

riewsc  pawn  1 

wri taln< 'Tha  numb* p  of  bombs  •  '*bombJ2)l 

if  Chanda it 
than  bad in 

1 and th  l*  21 
chack value  <0*31)1 
bomb  i  *  tem*»  1 
end  1 

»crncntro<off > 1  writalnl  writalnl  writalnl 

wri  Lelri< 'Tha  probability  of  kill  for  aach  bomb  l  ' *bombPkl4:2> 1 

if  change it 
than  bad in 

laud  ti  l  :=•  4) 

uambwk  J*  raadraal < landth ) 1 
writalnl 
anvil 

anvil  <  with  > 

writalnl  writalnl  continual 

anvil  <  ENEMYFlSRA  partthraa  > 


bed  vn  -C  REDOENEMY  > 

reset  (airinfila  *' ABR. 1 Jai r inf ila* data' > 1 
rawrita  <airdatd  * ' ABA . 2 ! ai rdata. data ' ) 1 


i  oi 

newscraenl 
wri teln< ' 
•iri  taln<  ' 
wri taln<  ' 
wri tain) 


Tha  attack  aircraft  ar*  arrandad  in  »i«  formation*  of'>l 
thraa  aircraft*  You  will  ba  wrasantad  with  aach  ')! 
aircraft  in  aach  formation.  ')! 
writalnl  writalnl 


repeat 

aii-data""  5  s  airinfila'"} 
case  ci rdata" .iff  of 
freuvi  i  put  <ai  rdata)! 
enemy  1  bediii  i  !*  i  +  11 
if  i  *  1 

than  aircuma  ;  =  ai rdata" 

else  newsc reenl 

write  ('  Do  sou  wish  to  dwlata  attack  ')! 
wr  i  talfiC  '  ai  rcraf  t  number  '*i;2»'?')l 
writalnl  sesnusall  writalnl 

casa  sal act ion  of 
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' N ' p 'n ' 


arid  ?  ■ C 

arid ? 

end?  <  casa 

sat  (  ai  rinf  ila)  ? 
until  «at'  <  airinfila)? 
repeat 

iiKHbcravnl 


basin 

scmcntpo(off)!  writaln?  writaln?  wnttln) 
writs  ('  Do  you  wish  to  Chanda  any  of  ')? 
wri taint 'it' 's  paraaatsrs? ' ) * 
writaln?  sasnosal?  writaln? 

casa  salaction  of 


'  Y  '  p  '  y  '  S 

badin 

anaaypara? 

coordinatas? 

velocities? 

alt_azath? 

writaln? 

writaln? 

continua? 

and? 

put  (airdata)? 

'N'p'n'  J 

basin 

writaln? 

writaln? 

continua? 

and? 

put  (airdata)? 

and?  -C 

and? 

casa  > 

casa  > 

> 


writwlnt'  Du  you  wish  to  add  nun  attack  aircraft  to  tha  databasa?')? 
writaln?  yasnosal ?  writaln? 

if  salaction  in  C'Y'p'y'3  than  basin  aoraattack?  put  (airdata)?  end? 
until  selection  in  C'N'p'n'3? 
clusw  (airinfila  plock)? 
close  (airdata  *  lock) ? 

snJi  <  REDOENEMY  > 


End  of  text  fils  Tiiesis2b. 
PRGCEDURE  FLEETBUILD? 


> 


basin 

reset  <  wiinnfilo  '  ABh.  1 !  ship  inf  i  la  •  data '  >  ? 

rawrita  (si  update  p ' rtBA . 2 5 shipdata . da te ' ) ? 
newscreen? 

writwln  < '  Do  you  wish  to  add  or  dalata  ships  or  ')? 
writwln  C'  chenSa  any  of  the  ships''  parameters? '  >  f 
wri  tain?  writaln?  yesriosei? 

case  salaction  of 

'Y'p'y'  :  redoship  ? 

'  H  ’  f  '  n  '  !  rtfpvd  t 

■ii  update"  shipinf ile"? 

put  (si  update)? 

Sat  ( shipirif  ila)  ? 
uri til  aof  ishiPinfile)? 
end?  {  Casa  > 

closa  ( ship ii if i lap  lock > ? 


02 


close  (shipdata  rlock)) 
end  ) 


PROCEDURE  AIRCRFTBUILD ) 


begin 


nimsc  reen  I 

wri teln  ('  Du  kou  wish  to  change/alter  S')) 
urt teln) 

uritulnl  '  1  !  Friendly  aircraft  parameters?  ' )  ) 

wr i Lain? 

writelnC'  2  :  Eneas  aircraft  parameters? 

an  Uaii 1 ) 


uru-  3  i  Both  enemy  and  friendly  aircraft  parameters? 

ui'iUlni  writeln) 

write  ( '  Tare  a  number  fro*  1  to  3  S  ')» 
read  (aelection) ) 
sen  ion  t  ro  <  oi  i )  I 

while  MOT  (selection  in  C'l'»'2'i'3'l)  do 
bed  in 

sc  men  t  ro  ( bel )  ) 
wri teln) 

writeln  ('  Must  be  a  nuabar  froa  1  to  3  !  ')) 

write  <  '  —  Please  try  again  --  :  ' ) > 

read  (selection)) 
end)  <  while  > 

case  selection  of 
'1'  i  redufrierid) 

'2'  t  rwdueneae) 

'3'  5  bedin  redofriend)  redoeneae)  end) 

end)  -C  case  > 

end) 


PROCEDURE  MOREIHFQ) 


bed  i  n 

with  shipdete'*  da 
bediri 

newscreen)  sernentro  (on)) 

length  5-»  4) 

write  ('  Enter  the  X  coordinate  position  J  ' ) ) 

«pos  ♦“  readreal ( length) ) 
writeln)  writeln)  writeln) 

write  ('  Enter  the  Y  coordinate  position  5  ')) 

aroa  S-  readreal ( length) ) 
writeln)  writeln)  writeln) 

length  S-  3) 

write  ('  Enter  the  PIM  )  ')) 

checkvalue  (0*359)) 
pia  J-  temp) 

writeln)  writeln)  writeln) 

length  2) 

write  ('  Enter  the  30rt  )  ')) 

checkvalue  (0*50)) 


[) 


bud  ♦- 

urilsln)  writelnl  writelnl  continue! 

nuubci'Vtfi  i  I  scrncntro  (on)) 

lensth  5-  3! 

writs  ('  Enter  the  surfdct  search  radar  rand* 
checkvaiue  (0*253)1 
same  t=  temp) 

writelnl  writelnl  writelnl 

write  ('  Enter  the  fire  control  radar  ranee 

checkvaiue  (0*235)1 

feme  S-  tempi 

writelnl  writelnl  writelnl 

write  ('  Enter  the  number  of  Lone  Ranee  SAM 

checkvaiue  <0*233)1 

lrsem  !»  tear* I 

writelnl  writelnl  writelnl 

write  ('  Enter  the  number  of  Short  Ranee  SAM 

checkvaiue  (0>233)l 

si-sam  i-»  tempi 

writelnl  writelnl  writelnl  continue! 

end!  <  with  > 

end  I 

PROCEDURE  M0RE3HIPS I 
beein 

with  ehimdate'*  do 
ueein 

1  rmpk  :  -■  sh  i  pcobp  •  1  ramk  I 
sp»rk  ♦*  *hiPCQ*P#sr»pk  » 
lrmin  J ->  shipcomp .  1  rein  I 
IrtidK  shipcomp *  irmex  I 

brain  I-  shipcomp. srmin  I 
bi'MK  J-  shipcomp. sr max  I 
mil  its  *  -  0! 
bints  !»  0! 
newicreenl 

uritelnC'  Please  choose  a  ship  type  J  ')! 

writelnl 

writeln('  1  !  Destroyer  ')! 

writelnl 

wn teln<  '  2  i  Cruiser  ')! 

wr i tel  n!  writelnl 

write  ('  Type  a  number!  1  or  2  !  ')! 

read  {selection) I 
sc  rnci  1 1  ro  <  on ) I 

while  not  (selection  in  C'i'*'2'3>  do 
beein 

scrncntro<bel ) I  writelnl 

write  <'  Must  be  an  available  choice!  1 
read  (selection)! 
end)  <  while  > 

case  selection  uf 

'1'  i  class  !=  destl 


'2'  i  class  !=  ersr) 
anti  I  <  case 
moreinfo) 

and)  -C  with  > 


PROCEDURE  REDOSHIP) 


Procedure  Part  two) 
Procedure  Part  three) 
Pruuaiiurs  Pa  rtf  our) 


forwa rd) 
forward) 
forward) 


PROCEDURE  SHIPPARA) 


SHIPPARA  par tone 


basin  with  shir-data"  do  beSin 
riawscrawn) 

wribelni'The  ship''s  X-coordinate  position 
if  chanseit 
then  basin 

lensth  5=  4) 

;:pos  !»  read  real  (  lensth  > ) 
wri tain) 
and) 

scrncntro(off ) )  writeln)  wribeln)  writeln) 
wri teln< ' The  ship''s  T-coordinate  position 
if  chanseit 
than  basin 

Ians tli  1 3  4) 

epos  •  »  read real ( lensth) ) 
writeln) 


and) 

and )  < 

writeln)  w 
end  ) 


with  > 

riteln)  continue)  parttwo) 

■C  SHIPPARA  partone 


'  r xp os J  4 : 1 ) ) 


r wpos : 4 : l > ) 


PROCEDURE  PARTTWO ) 


SHIPPARA  parttwo 


basin  with  shipdsts~  do  beSin 
nawscraen) 

wri teln( 'The  ship''s  PIM  (position  of  intended  movement)  5  '»PimS3)J 
if  chanseit 
than  basin 

lensth  !  =  3) 
checkvelue  (0r359>) 
pi*  I -  temp) 
end) 

scrncntrotoff ) I  writeln)  writeln)  writeln) 
wri teln< 'The  shir''s  actual  SOA  (speed  of  advance)  *  'rsoa)2>) 
if  chanseit 
then  beSin 

lenSth  (-  2) 
chackvalue  (0>30)) 
sue  J-  temp) 
and) 
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unlKini  writeln;  continue;  parbthree; 
end)  -C  SHIPPARA  parttwo 


PROCEDURE  PARTTHREE; 


SHIPPARA  partthree 


begin  with  shipuata"  do  begin 
ii«u«c  rawn  t 

wri  teln(  'Surface  search  radar  maximum  ran*# 
if  change! t 
than  bad in 

length  !»  3* 
checkvalue  (0*255) * 
ssrrig  ;=  temp* 
end  r 

icrncntrofoff > »  wri tain!  writelnf  writeln; 
w r i teln < ' F i ra  control  radar  maximum  range 
if  change it 
than  begin 

1  erigth  J  a  3  5 
checkvalue  (0r255>t 
fcrng  ;=»  temp? 
endf 

end>  <  with  > 

writeln;  writeln;  continue;  partfour; 

end*  -C  SHIPPARA  partthree  2 


>ssrng:3) ; 


1  *f crng23) ; 


PROCEDURE  PARTFOUR  I 


SHIPPARA  partfour 


begin  wi'  shipdata"  do  begin 
newgcreen; 

wri teln< 'Number  of  long  range  surf ace-to-ai r  missiles 
if  charigeit 
then  begin 

length  !-  3; 
checkvalue  (0*350); 

1 rsam  !*  temp* 
end  ; 

sc  merit  ro  (off )  ;  writeln*  writeln;  writeln; 

wri teln< 'Number  of  short  range  surf ace-to-ai r  missiles 
i f  change i t 
then  begin 

length  I -*  3; 
checkvalue  (0*255); 
srsam  ! -  temp* 
end; 

end*  <  with  > 

writeln;  writeln;  continue; 
end;  d  SHIPPARA  partfour  > 


’  1 rsam: 3 ) > 


:  ' * srsam* 3) * 


oesin 

i  : w  o; 
repea  t 


REDOSHIP 


16 


niiiMcrtien) 

writwln<'  Do  sou  wish  to  odd  ior>  ships  to  the  database?  ' ) ! 

writaln!  yasnosel! 

if  selection  in  C'Y'»'y'3  than  basin  moraships!  put  (shipdata)!  end! 
until  selection  in  C'N'*'n'3 
end!  <  REDOSH IP  > 

ROCEDURE  REDOMISSILES! 

Procedure  Fart two?  forward I 

Procedure  Pertthree!  forward! 

PROCEDURE  MISSPARA!  <  MISSPARA  partona  > 

L>wSj.ii  with  shipcomp  do  basin 
riewserewn! 

wri telii( 'UonS  ransa  SAM  probability  of  kill  :  ' f lrapk<4S2) ! 

if  chansait 
than  basin 

lwnsth  !«  4! 

lriapk  :=>  raadraal  <  lansth! ! 
wri tain! 
and! 

scrncntrofoff > !  writaln!  writaln!  writaln! 

wri taln< 'Short  ransa  SAM  probablits  of  kill  :  ' >srmpk t 4 : 2 > » 

if  chansait 
than  basin 

lwnsth  :*  4! 

srmpk  !*  raadraal ( lansth) ! 
writaln! 
and! 

end!  <  with  > 

writaln!  writaln!  continua!  parttwo! 

and!  <  MISSPARA  partona  > 

PROCEDURE  PARTTWO!  -C  MISSPARA  parttwo  > 

basin  with  shircoap  do  basin 
i  lewsc  rwari ! 

wn teln< 'Short  ransa  missile  minimum  tarsat  distanca  !  '  t% rminS3>> 

if  chansait 
than  baSin 

lwnsth  J-  3! 
checkvalua  <0*255)! 
srmin  J-  te»p! 
end! 

jC rncn t ro< of f > !  writaln!  writaln!  writaln! 

wr i taln< ' Siiur t  ransa  missile  maximum  terSet  distanca  !  ' isr»ax!3) ! 

if  chenSei t 
than  baSin 

lansth  I-  3! 
chackvalua  (0*253)1 
: -  teap I 


srmax 


continue)  partthree) 

MISSPARA  pcrttua  > 


A 


Wild) 

wri  Lain ) 
end  ) 


<  with  > 
wri teln) 

< 


PROCEDURE  PARTTHREE )  < 


MISSPARA  partthree  > 


begin  ui  Lh  aiupconp  do  begin 
i  lUMbc  rewn  i 

wri  twln<  'Long  range  missile  minimum  target  distance  :  '»lrmin:3>) 

it'  change! L 
Liiwn  begin 

lens tli  :=  31 
checkvalue  (0»253)) 

Irmin  1-  temp) 
end  ) 

sc  pi  ion  t  i*o  <  uf  f ) )  writeln)  writeln)  writeln) 

uriUinl  "Luna  range  missile  maximum  target  distance  i  'rlr*axS3> 

if  change! t 
liiwn  begin 


length  i  a  3) 
ciieckvalue  (0.233)) 
1 rma;<  i 3  temp I 


end) 

ei  id  r 

<  wi  th  > 

wri twin) 

writeln) 

continue) 

end) 

< 

MISSPARA  partthree 

> 

begin 

< 

REDOHISSILES 

> 

nwwsc rwen) 

wn  lwln<  ' 

Do  you  wish 

to  change  anw  of  the  ships''  ')) 

wri Lwln ( ' 

surf ace-to-ai r  missile  parameters? 

'  > ) 

wri twin) 

wri lwln< 

These  parameters  will  be  eouivalent 

for  all  ships. ' > ) 

wri twin) 

writwlri)  aesnosel) 

' '(  '  t  '  a '  : 

begin  misspera) 

misschng  i*  true) 

end) 

"N't 'n'  :  misschng  5=  false) 
end)  -C  case  > 

end)  <  REDOMISSILES  > 


beam  <  CHANGEM  > 

xeLuiiaxn  <  '  .  d2/ tiies  i  *3.  code'  > ) 

Jetcval  (choice)) 
if  choice  -  'build  all' 

Liiwn  beain  flwetbuild)  ai  rcrf  tbuild)  end 

else  if  cliuice  ■*  'build  fleet' 

Liiwn  flwetbuild 

else  if  choice  -  'build  air' 

Liiwn  ai  rcrf  tbui  Id ) 

end.  <  CHANGEM  > 


i 


A 
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•V.SsWaP  +  > 

PROGRAM  ABAGAME9 


<  A  compiler  option  for  decreasing  aeaors  jtm 


> 


USES 

pgi-af  r  real modes  t  transcend. apples tuf  f  r  thesistuff » 
{Busing  .d2/thwsis3. lib>  makeforasrgraf stuff  rdtinndtl 


CONST 

xi it- 1-  x  20!  <  The  interval  that  the  attack  updates  it's  heading.  > 
rni.ru**  -»  1209  <  Time  of  retreat  for  the  attack.  > 
retrthds  -  ?0I  <  Retreat  head  ins  for  the  attack.  > 
reti-tall  -  200009-C  Retreat  altitude  for  the  attack.  > 
retrtvei  -  4009  {  Retreat  velocity  for  the  attack.  > 
inbdist  -  2009  {  Distance  fro*  carrier  to  descend  for  attack.  > 
inbdeit  -  2009  <  Inbound  altitude  for  attack.  > 
tul  x  0.39  {  Tolerance  for  boabing  position  coaparisons.  > 
iiittol  x  79  {  Tolerance  nuaber  of  hits  a  ship  can  take  •  > 


rwouv  -“39  <  Radial  distance  around  carrier  for  aircraft  recovers. > 

twuefauit  a  1609 

VAR 

shipdata.shpuubf ile  !  file  of  shipr 

ai rdetereiroubf lie  I  f  le  of  aircraft9 

fxritroner  pntrtuu  •  shipritr) 

shi Phaser  shipnext  :  shipntr9 

airbase.  airnext  i  airpntr! 

atkbaser  etknwxt  l  airrntr) 

cntbaser  cut next  •  cntpntr9 

cvmcva  J  real  9 

ohuicerkindrmsg  J  string! 

f rcnuar i rur len  J  0..2359 

s top r step thru  l  boo lean 9 

1 1» .us. scale. look. timer end tiaer tastep  I  integer! 
plasersrf  rnplasreneplasmewcenter  i  set  of  0..5119 


PROCEDURE  3H0WFLEET  9 
PROCEDURE  4H0UATTACK  9 
PROCEDURE  3HIFS  TATUS  9 
PROCEDURE  INTSTATUS  9 


PBBEiBtJBf  aEKiTSfBI 


PROCEDURE  AIRDELETE  ( 


PROCEDURE  3HIPDELETE  < 


tinsun  5  airpntr9 
VAR  base  :  airpntr  99 
tin  sun  !  shipntr9 
VAR  base  ;  shipntr  >  9 


forwa rd! 
forward 9 
forward! 
forward 9 

f8FS3F3! 

forward! 

forward! 


{.include  /progf  i  ies/  tiiesisob .  lext> 

< 

{ 


A  compiler  instruction  to  include  this 
text  file  when  compiling  the  codefile. 


a 


<  BedinriinS  text  file  Thesis3b»  > 

SEGMENT  PROCEDURE  SHOUFORMS9 

beSiri 

ai-df  iKinotJk  (bu280*l)9 

Srafixon)  misf  orms 2  airfornsi 

mss  2  =  'Presented  below  are  the  fisures  that  '2 

move lo  <0*190)9  unitwrite  < 3*asflC 1 3 * lenatb<asS> * 0» 12 ) 2 

msS  'will  be  used  in  the  graphic  displays*  '9 

moveto  (0*18  0)9  unitwrite  C  3*msSC  1 1 *  lensth<  »sa )  *  0 » 12 )  2 

mss  J-  'The  actual  position  of  the  unit  shown  '2 

i*o veto  <0*160)9  unitwrite  C 3 rmsSC 1 1 * lensth < asa ) * 0* 12) 9 

ms a  2 a  'will  be  the  upper  left  point  of  fiaure.  '2 

moveto  (0*1 30 ) 9  unitwrite  ( 3* msSC 1 1 ► lenSth ( ess ) *0* 12) 9 

m*S  :*»  '  SHIPS  AIRCRAFT  '2 

moveto  (0*12 0)2  unitwrite  < 3*msSCll * lensth(asa) *0* 12) 9 

mss  2-  '  FIGHTER  AEU  '9 

moveto  <0*110)9  unitwrite  < 3*msSC13 * leneth(«se> *0* 12 > 9 

moveto  <39  *100)9  drawiaase  < shipf ora*2*0*0*8*6> 9  dotat  (39  *100)9 

moveto  <132*100)9  drawiaase  (intfora  *2*0*0*10*6)9  dotat  <152*100)9 

moveto  <223*100)9  drawiaase  (aewfore  *2*0*0*10*6)9  dotat  (223*100)9 

msd  2=  '  RADAR  CONTACTS  ' 9 

moveto  <0*70)9  unitwrite  (3*eseC13 * lenslth<a*a) *0* 12) 9 

mss  :=■  '  AEU  FIRE  CNTRL  AIR  INTCPT  SHIP  SRCH  '9 

move tu  <0*  30)9  unitwrite  (3*a*SC 11  * lenSth(ese) *0* 12) 9 

moveto  <14  >40)9  drawiaade  (eewrdr  >2*0*0»3*5)9 

moveto  <70  *40)9  drawiaase  (fcrdr  *2*0*0*5*3)9 

moveto  (134*40)9  drawiaase  (airdr  *2*0*0*5*5>9 

moveto  <238*40)9  drawiaase  (ssrdr  *2>0*0*3*5)9 


mss  2=*  '  AEU  FI 
move tu  <0*  30)9 
moveto  <14  *40)9 
moveto  <70  *40)9 
moveto  <134*40)9 
moveto  <238*40)9 


'press  SPACE  BAR  to  continue' 9 


*2*0*0*3*3) 9 
*2*0>0>5*5) 9 
.2*0*0. 3*5)9 


moveto  <40*8)9 
read  (selection) 9 
end  * 


unitwrite  <3*asSC13* leneth(asS) *0*12)9 


SH0UF0RMS 


SEGMENT  PROCEDURE  P0SITRANSFER  9 
beSin 

fitbase  2  —  nil  9 
shipnext  2“  shipbase9 
frnplas  2-  C  3  9 
while  shipnext  <>  nil  do 
ueSn  i 

i  >ew  (  f  1  ti  ivk  t )  9 

fltne!<f'.:<POs  2=  shipnext"  .  ;<pos  2 
f  1  UieK  t'* « epos  2-  shiPnext"'  .  spos  9 
f  1  tnext^.fium  2-  shipne;<t~  .nua  2 
f nip  1  as  i-  frnplas  +  Cshipnext'* •  nual 2 
f  i  lne.it~.what  2“  boat) 
f  I  tnext'"'.  link  2-»  fitbase) 
fitbase  2-  fltnext) 
shipnext.  2=  shipnext".  link) 
end)  <  while  > 

sir next  2-  airbase) 
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nil  do 


win  It*  aipriaxt  <> 
badin 

if  <  (^irnaxr.xpos  <>  cvx)  op  <airnaxt~.wPOS  < 
than  badin 

nsw  (fltnaxt)) 

f Xtn»»<t',.xpo*  4ipn#xt".xPO*i 

fltnaxt',.wpo»  ! 3  aipnaxt'*.wPOS) 
f  1  tnax  t~ .  nui  !  *  jirn»xt".nui  ) 
fpnplaw  I -  fpnplaw  +■  Cai pnoxt^tnuaJ > 
if  ai priaxt''.acf  pnd  »  aaw 

than  f ltnaxV'.what  J=  sari* 
also  f  1  tnaxt"* .what  t*  fidht) 
f  1  tnaxt'*.  link  )=*  fltbasa) 
fltbasa  !>  fltnaxt) 
and)  <  if  > 
airncxb  J -  ai  rnaxt'*.  link.) 
and)  <  win  la  > 

cn tnaxt  !-  cntbasa) 
win  la  entnaxt  nil  do 
badin 

naw  (fltnaxt)) 

f  1  tnaxt'* .xpos  !=  cntnaxt'*.xpos) 
f  1  tnaxt"  •  wpos  J*  cntriaxt"  .  wpos  ) 
flln«Kt".nu»  S*  entnaxt". nua) 
f n ip law  i-  fpnplaw  +  Ccntnaxt".nual ) 
easa  entnaxt". who  of 


as  roll 

f  1  tnaxt". what 

!* 

aawcnt ) 

ss  i-ch 

fl  bnaxt'*.  what 

:* 

sscnt 

) 

ai 

f 1 tnaxt". what 

:• 

aicnt 

) 

foori 

f  1 tnaxt". what 

:> 

fccnt 

) 

and) 

<  casa 

> 

fltnaxt". link  !■>  fltbasa) 
fltbasa  J-  fltnaxt) 
entnaxt  !»  cn bnaxt'*.  link) 
and) 

anabasa  !J  nil) 
atknaxt  !-  atkbasa) 
anaplaw  • -  C3) 
whila  atknaxt  <>  nil  do 
badin 

naw  (ananaxt)) 

ananaxt" .xpos  1  -  atknaxt" . ;<pos ) 
ananaxt" . wpos  S*  atknaxt" . wpos ) 
ananaxt" . nu*  J=  a tknaxt" . nun  ) 
anaplaw  i-  anaplaw  +  Catknaxt".nuo»J) 
ananaxt". what  I  -  Pine) 
ananaxt". link  S-=  anabasa) 
anabasa  S-  ananaxt) 
abknaxb  : -  atknaxf'.link) 
and) 

and) 


SEGMENT  PROCEDURE  WHAT NEXT? 


esd  2-  '  U(pscale  /  D(ownscale  /  R(*center  ') 
wovetu  (0.191))  unitwrile(3.aeaiC13. 1 snath < mss > »0* 12) ) 

dutat  ( 0 » 1 1  > )  dotat  <0.13  >> 

movetu  <0.12>)  line to  (scale. 12)) 

dutat  <  scale.  11 )  »  dotat  (  scald.  13 )  )  aovf  rtl  (2.3)) 

msd  5-  '  -=;■  10  NM'»  uru  twri  te(  3  .msSCl  3 . 1  snath  <  ess)  .0 » 12  > » 

msa  J-  '  C(ontinue  Tima  :  '  i 

nuvatu  (0.8).  uni  twr i te < 3 » msdC 1 3 » lenath ( ms* ) . 0 . 12 > » 

sir  <  lime.essl)  ) 

nuvatu  (220.3) )  uni twr i ta< 3 . msSC 1 3 . 1 snath ( asS) . 0. 12 ) ) 

Srafiiion)  read  (  selection )  » 

while  riot  (selection  in  C  'C  ' .  'c ' .  'U '  .  'u ' .  '  D' . 'd' »  'R ' .  '  r '  3 )  do 
uaiin 

scrncntro(bel ) »  read  (selection)) 

cm  id  ) 

case  selection  of 

U'.'u'  i  besin  scaleup)  scale  ♦»  scale  div  2)  end) 

'D'.'d'  S  beam  scaledown)  scale  ! 1  scale  *  2)  end) 

'R  '  .  '  r  '  :  Lies  in 

scrnentro<cl r) )  scrncntrotoff ) )  texton) 

writeln)  writeln)  writeln)  writeln) 

writeln< '  Choose  a  unit  nueber  froe  the  last  diselas  ')) 
wnteln(  '  on  which  sou  wish  to  recenter  the  diselew.  ')) 
writeln)  writeln) 

if  atksraf 

then  elawers  ■*  enemies 

else  viewers  i»  frnelaw) 

write  ('  Must  be  a  DISPLAYED  nueber  J  ')) 
sc  merit  ro<  on) ) 

len  !»  3)  nucent  J*  readint < len > ) 

while  < (nucent  <  0)  or  (nucent  >511))  do 
beam 

sc  merit  ro  ( bel ) )  writeln) 

write  ('  Must  be  a  DISPLAYED  nueber  :  ')) 
nucent  J  =  readint ( len) ) 
end)  <  while  > 

newcenter  J •*  Cnucentl) 

while  not  (newcenter  O  >» lasers)  do 
besin 

sernentro ( bel > )  writeln) 

write  ( '  Must  be  a  DISPLAYED  nueber  !  ')) 

nucent  S-*  readint  ( len) » 

while  ((nucent  <  0)  or  (nucent  >  511))  do 
beSin 

sc  merit  ro  ( bel ) )  writeln) 

write  ('  Must  be  a  DISPLAYED  number  :  ')) 

nucent  5-  readint ( len ) ) 
enu )  {  while  > 

newcenter  :■=  CnucentJ) 
end)  <  while  > 

recei  i  ter  ) 
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-c 


> 


b 


N 


i 


and  i 
endi 


and* 

case 


SEGMENT  PROCEDURE  ACFTM0VE3I 


Vjp 

iiudfvel  raltd  i  iritederi 


bed  in 

write  i'  Enter  desired  heading  of  aircraft  J  ')! 
lan  S-  31  hdd  S»  readin t ( len ) i  writelni  writelni 

while  ihdsi  >  339 >  do 
tied  in 


writelni'  Heeding  west  be  between  000  and  359.  ')!  writelni 
write  ('  Enter  desired  heading  »  ')) 

hdg  1  -=  readinti  len>  !  writelni  writelni 
endi  -C  while  > 

ai  rnex  t~ .  eicmth  5*  hdg  I 

write  i'  Enter  desired  velucit*  of  aircraft  *  ' ) i 
lan  I  -  45  vel  5-*  readin  t  ( len )  i  writelni  writelni 

while  ivel  >  2000 i  do 
begin 

ic rnci  1 1  ro  i bel ) I 

writelni'  Velocity  eust  be  between  0  and  2000.  '>1  writelni 

write  i'  Enter  desired  velocity  »  '>i 

vel  S*  reedinti len) i  writelni  writelni 
end I  <  while  > 

aii-next'" .valet*  J -  veil 

write  ('  Enter  desired  altitude  of  aircraft  iMUST  be  <  25000)  i  ')> 
lan  !-  5i  altd  i-  readinti len) I  writelni  writelni 

while  ialtd  >  25000)  do 
begin 

scrncntroibel ) i 

writelni'  Altitude  MUST  be  between  0  and  25000.  ')i  writelni 
write  i'  Enter  desired  altitude  S  ')i 

altd  I -  readinti len) I  writelni  writelni 
and!  <  while  > 

ai rnext~«el t  i*  altd I 
and  I 


SEGMENT  PROCEDURE  M0WEAC 
Var 

degrdispu  l  inteSeri 
duwhatnu*  !  1..10I 


whatac  !  frridteeel 
dowhat  :  strinS  >i 


ail-next  i-  airbase!  w  I -  li 
if  downat  -  'launch' 
then  duwhatnue  ! =  1 
else  if  duwiiat  -  'move' 


I 
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than  dowhatnua  2 
else  dowhatnua  I  -  3f 

SL'rncriUa(clr)>  acrncn  t  ro  ( of  f  )  f  wnttln) 

while  di  m»xt  <>  nil  do 
baaii  i 

sc m ieri t  ro  <  el r  >  f  sernentrof  of f  > f  writalnf 

if  j  -  1  then  basin 
c<i‘j«  whatae  of 

mlcpt  !  kind  S=  'fishter'f 
daw  ;  kind  I “  'earls  warnins  aircraft' f 
endf  <  easa  > 
case  Oouhatnua  of 

1  :  if  <  (ai  rnext’.alt  ->  0>  and  <airnext'’.acf  rnd  *  whatae) 

and  (ai  rn»iit".xros  »  cvk)  and  (airnexV’.seos  *  cvs)> 
than  basin 

if  whatae  =*  aaw 

tiian  «irn»»t".a«undr  i®  240 
•Isa  basin 

ai maxt” .  intndr  !  =■  120f 
airnext''.aaa  J*  it 
and! 

writalnf  writalnf 
writalnf'  Launchins  a  'ikindi'DI 
writalnf  writalnf 
acftaovasf 
J  !>  j  t  II 
and  I 

2»3  :  if  ( fwirnaxt’.al t  <>  0>  and  f  airnaxt'*.acf rnd  =  whatae)) 
than  basin 

das  !»  daSraas  ( cvm cvs> ai rnaxt'* . xroi r ai  rnaxt'' . srot )  I 
dis  :=»  distanca  (cvxicvmai maxt"*. xroirai rnaxt'*. si*os)  t 
dis  :®  dis  *  lot 

write  <'  Do  sou  wish  to  'rdowhat?'  tha  '»kind)f 
writaln('»  nuabar  ' rai rnaxV* .nuaSZr '  located  ')f 
writ a  <'  'rdas«3t'  dasraas*  'rdis«3)f 
writalnf'  NM  from  carrier?  ')t 
i f  dowha  t  *  ' wove ' 
than  basin 

writalnf  writalnf 

write  ('  Currant  headins  is  J  ')f 

write  Inf  si  maxt’ .  as»  thi  5  >  I  write  ln> 

write  ('  Currant  valocits  is  l  ')i 

wr i telnfai rnaxt’ . valets IS  >  f  writalnf 

write  ('  Currant  altitude  is  !  ')f 

write  <ai rnaxt'’ >altiS)  t 
if  (airnaxt’^alt  3  1) 
then  basin 

write  ( '  ' >  t 

writalnf 'Aircraft  is  bams  RECOVERED')) 
wn  tain) 
end 

else  basin  writalnf  writalnf  endf 

endf 

writalnf  sesnoself  writalnf  writalnf 
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if  selection  xn  C'Y'»'n'3 
then  if  dowhet  =  '  move  ' 

then  beam  acftaoves)  J  :=  J  +  l) 

else  beam 

airnexf'.alt  ! »  1) 
ai pn«xt". velctw  i“  330) 
if  dee  <  180 

then  airnext''.azath  :*  dee 
else  Jirn»«t".az«th  J  *  dee 
j  :*  J  +  l) 

end)  <  if  *es  > 

end)  <  if  case  2»3  > 

enu)  -C  case  > 
end)  <  if  j  »  1  > 

airnext  i-  ai rnext~. link) 
end)  <  while  > 

end ) 


SEOrtSNT  PROCEDURE  3HIPM0VES) 
crs»sH  :  in twde ■■) 


Enter  desired  PIH  (course) 

ers  :=  readinU len) )  writeln) 
do 


bee  in 

write  <  ' 
leri  J-  3) 
while  (crs  >  339) 
bee  in 

scrncntroibel ) ) 
writeln<'  Course 
writeln) ) 

write  ('  Enter  desired  PIM 
crs  i-  tea dint(len))  writeln) 

end)  -C  while  > 

shipnext''.pia  : *  crs) 

write  <’  Enter  desired  speed  of  advance 
len  S-  2)  spd  Jw  readint<  len) )  writeln) 

while  <  spd  >  30  >  do 
bedin 

sc  merit  ro(bel ) ) 

writeln< '  Speed  isust  be  between  0  and  30i 
wri teln) 

write  ('  Enter  desired  speed 

5Pd  !  -  readiri t  ( len )  )  writeln) 
end)  {  while  > 

jiiirnext'.aud  J-*  spd) 
end) 


')) 

writeln) 


*ust  be  between  000  and  339.')) 


:  '>) 
writeln) 


'  > ) 

writeln) 


> ) 


:  ' ) ) 
writeln) 


end 


+  180 
-  180) 
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i 


SEGMENT  PROCEDURE  MOVESHIP  (douh.it  {  string)) 

VAR 

daSfdistw  5  intaSarl 
ripim  •  0  •  •  35?  I 

usud  :  0..30; 

duwhstnua  i  1..10 I 
l)Nin 

shipnext  t=  shipbssal  J  « »  1  I 

if  dowhst  -  'sinSla' 
than  dowhatnum  J=*  1 
elsa  duwhatuuia  S=  2 I 
win  la  ^hii'nwK.  <>  nil  do 
Own  in 

scrncnbrotcl r ) I  scrncnt ro ( of f > I  writalnl 
if  J  *  1  than  basin 
cd»«  dowhatnu*  of 

1  :  basin 

cwsa  shipnaxt". class  of 

cv  :  kind  2=»  'carrier' J 

dast  :  kind  2  =  'dastrosar' I 

crsr  2  kind  5=  'cruisar'l 

and)  <  casa  > 

dan  !»  dasraas t cvx rcvafshipnaxt" . xpos » shipnext" . spos )  J 
dia  2»  distanca t cvx»cvs» shipnaxt" . xpos * shipnaxt" . spos )  %  101 
wriba  ('  Do  sou  wish  bo  mova  tha  'tkindi  ' »  nuabar  ' ) I 
urit*  (shipn*xt".nu»:2) ) 
if  shipnaxt''. class  =  cv 
bhan  writalnt'?') 
alaa  basin 

writalnt'  locatad  ')» 

writa  ('  'rdaS23r'  dasraas*  '»dis23)i 
writalnt'  NM  fros  carriar?  ')! 
and»  <  if  > 
writalnl  writalnl 

wribaln('  Currant  PIM  J  '  »shirnaxt''.Pia>  I 

wri balnl 

wri  taint'  Currant  SQM  2  ' » shirnaxt"' .  soa )  I 

uritalni  uesnosal  t  untalni  writ  mini 

if  salaction  in  C'Y't's'l 

bhan  basin  shirtovasl  j  i>  j  Ml  andl 

and! 

2  2  basin 

unbclnl  writalnl 

writalnt'  Altarins  tha  coursa  /  spaad  of  tha  flaat  l  ')! 
writalnl  writalni 

writalnt'  Currant  PIM  J  '  »shirnaxt',.r  is)  I 

wri balnl 

wribalnt'  Currant  SOP  I  ' • shipnaxf*  • soa ) I 

shipMoves I 

np un  2-  shipnaxt'1  .Pinl 
nsua  shipnaxt'*  •  sua  I 
siupnaxb  }=■  shipriaxt" .  1  ink! 
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l‘0P0*b 

ahipnexV* .Pim  »  =  npim? 
shipnext'"  •  soa  •  -  nso<ii 
shipnext  !*  shipn0Xt"‘ .  1  ink  ? 
until  shipnext  3  nil? 
end? 

end?  <  case  > 

end?  <  if  i  »  1  > 

if  dgwhat  <>  'f leet'  then  shipnext  ;=  shipnext'*.link? 
end?  <  while  > 

end? 

SEGMENT  PROCEDURE  MAKECHTC  <  whatrdr  :  radartspe? 

daadfled  t  boolean? 
x*e  :  real? 

nabltnebZ  !  integer  >? 

VAR 

newcntc  J  boolean? 
iKtitncmua  !  integer? 

bediri 

entries  t  {•-  cntbase? 
newcn  tc  S  -  t rue  ? 

is  round  <n)f  i»  I =  round  (0)? 
while  cntriext  <>  nil  do 
begin 

u;<  l-  round  ( entries t'1 . hpo* >  ?  c*  :*  round  <cntnext<'.0POS>  ? 
if  <<ex  *  is)  and  icy  »  is>> 
then  if  entries  t~.  dead 

then  newcntc  i *  false 
else  if  deadfled 
then  bed in 

newcntc  ’•  *  false? 
cntnext~.who  1»  whatrdr? 
entnext” . rdna  S*  neb 2  ? 
entnext" .dead  J=»  deadflas? 
end 

else  if  ord(whatrdr)  >  ordt entnext" . who) 
then  bed in 

newcntc  • ■  false? 
entnext''.  who  whatrdr? 

entnext'*.  rdne  :*  ni*b2? 
end 

else  newcntc  • =  false? 
entries t  entnext** « link? 
end? 

if  newcntc 
tiien  beam 

new  icntriext)? 
entnext'*  .xpos  5-  :<? 
entnext'* .  spus  J-  0? 
critnext'*.nue  •  frenue  +  riinbl? 
entnext'*.  who  J*  whatrdr? 


cntnaxt'* .  rdna  i-  nab2f 
l'ii  tn»K  t" .  daad  J=  daadflad) 
cri  tnwxt~.  link  J»  cntbasaf 
uritbasa  J-  ontnaxtf 
and  ) 

■Hllil 

SEGMENT  PROCEDURE  SHIPRADARCNTC ) 

WAR 

dist rbrdr 1 t » rt  5  tnt«Mr) 
jxrayrrh  :  raalf 

n  jm  •  0  •  •  23S  v 

badm 

r^dtiiwil*) 

shipnaxt  shipbasal 

uihila  shinnaxt  <>  nil  do 
with  shipnaxt'"  do 
badin 

atknaxt  {=»  atkbasaf 
scrncritro<  If )  I  writ*  ('=>  ')) 

alula  atknaxt  <>  nil  do 
badin 

d»  t -  dtkntKt" .  :<Pot )  as  l-  atknaxt” .  yr*us  ) 

nai  atknax t”.numf 

rh  :  -  U  -  .  .  jit)  f 

uist  1  -  distanca(  ;<p>os  » yaoti  ax  rati )  *  10) 

urd  •  -  dadraa*  <  ax » asr  kpos  r  spos  )  ) 

It  ( atknax t”. axath  -  atknaxt” •  asmanv  div  2)1 
rt  N  (atknaxt". aamth  +  atknaxt" . asaanv  div  2)5 
if  <lt  <  0)  than  It  J-  It  +  340) 

if  (rt  >  340)  than  rt  S*  rt  -  340) 

if  ((dist  <=  srmax)  arid  (dist  >  srmin) 

and  (srsam  >  0)  and  (dist  <*  rh)  ) 

than  badin 

srsam  5=  srsam  -  1) 
if  random  <=  maxint  *  srmpk 

than  makacntc  (fconitruaiaiomniinua) 
elsa  makacntc  <  f com f  alsar ax r as  » nonua)  f 

and 

alsa  if  <  (dist  <»  lrmax)  and  (dist  >  train) 
and  (lrsam  >  0)  and  (dist  <=  rh)  > 
than  badin 

1  rsan  ! *  lrsan  -  If 
if  random  <>  maxint  *  lrmpk 

than  makacntc  (fcomtruaiaxiayinamua) 

also  makacntc  (fconrfalsaraxrasmmmum)  f 

and 

visa  if  ((dist  <■=  fcrnd)  and  (dist  <»  rh)> 
titan  makacntc  ( fconrf alsar ax»as»n*»num > 
visa  if  ((dist  <=»  ssrnd)  and  (dist  O  rh)) 

than  makacntc  <  ssrchrf  alsar  ax  taamainua) ) 
tul)  and  ( atknaxt” .bomb  >  0>) 


if  ((dist 


then  bedm 

atknext”  •bomb  S  =  dtk.riBHt~.boBb  -  If 
if  random  O  inaxinl  *  atknBHt~ .bombPk 
than  bhits  J  =  bhits  +  1 ! 

and 

alia  if  ((diet  <-  atknext”. asmrnd)  and  (atknext”. asm 
and  (brd  >=■  It)  and  (brd  <*  rt)) 
than  bad in 

atknaHt~.asm  !*  atknaxt~.asm  -  1) 
if  random  O  maxint  *  a tknext” . asmmk 
than  mbits  i-  mbits  +  1) 

and ) 

if  ((bhits  +  mbits)  >  hittol) 
than  sunk  1-  true) 
atknext  i-  a tknex t~ .  1  ink ) 
and)  <  while  atknext  > 

shipnext  i -  link) 
and)  <  wi th  > 

and  ) 

SEGMENT  PROCEDURE  rMRADARCNTC ) 
bftR 

•Jis  t  r  b  rd  1 1 1  <■  r  r  t  r .  1  tm  t  rtm  1  inteder) 
w,  as  *  rh  J  real) 

hi*  :  0..233) 

dad  in 

randomize) 
airnext  l -  airbase) 

acrncntro(elr) )  scrncnt roCon) )  texton) 

while  airnext  <>  nil  do 
bad  in 

if  ai  iTiext~  .alt  >  0 

than  with  airnext”  do 
bad  in 

atknext  I-  atkbasa) 
sc  merit  ro  <  If ) )  write  ( '*>  ')) 

while  atknext  <>  nil  do 
basin 

ax  5^  atknext” .  i<ros )  as  !»  atknext” . spos) 

rim  2-  atknext”. num) 

rh  :=  1.23  *  (sart(atknaxt”.alt)  +  sort(alt))) 
dist  J=  Ji3tancw< xposrsras.exr as)  *  10) 
brd  dedreas  (xposrsposraxras) ) 

Itr  5=  (azmth  -  aianv  div  2)) 

rtr  5-  (azmth  +  aianv  div  2)) 

if  (Itr  <  0)  than  ltr  :=  ltr  +  360) 

if  (rtr  >  360)  than  rtr  5=  rtr  -  360) 

1  tm  J-  (azmtb  -  aamanv  div  2)) 

rtm  5-  (azmtb  +  aamanv  div  2)) 

if  (llm  \  0)  then  Itm  !=  Itm  +  360) 

if  (rtm  >  360)  than  rtm  rtm  -  360) 

ease  aefrnd  of 


a 


>  *. 

intcPt  !  if  ((dist  <=  aaerng) 

and 

(aae 

>  0) 

►V- 

and  (brg  >-  lte) 

and 

(brg 

O  rtm) 

k 

and  (dist  <»  rh>) 

V  * 

then  begin 

‘.7 

aam  5*  aae  - 

1) 

if  ((dist  <=  aewrns)  and  (dist  O  rh)) 

than  makecntc  (asrchrfalser ax»as»ne.nu»> ) 


and  ) 
atknext 
and  ) 


< 

end  )  < 

ai rnext  J-  ai rnext" • 1 ink ) 
end  I  <  while 


if  randoe  <*  maxint  *  aaepk 
then  makecntc  Cai  itruoam amnatnua) 
else  makecntc  <ai rfalse»ax»ae»nm»num) ) 

end 

else  if  ((dist  <»  airng)  and  (dist  <*  rh)> 
and  (brg  >M  ltr>  and  (brg  <*  rtr) 
then  makecntc  (ai>falst>3X»asin»>nu*>i 
case  > 
atknext"'  .link ) 

while  atknext  > 
with  ai rnext  > 


ai rnext 


h 


end  I 


SEGMENT  PROCEDURE  SHOWSTATUS) 


uvsliii 

repeat 

sc rncnt ra<cl r ) ) 


sc  rncnt  ro ( off  >  ) 


writeln ) 


wri  teln(  ' 
wri teln< ' 
wri twin? 
wri teln< ' 
wri Leln< ' 
wri teln< ' 
wri  telri!  ' 
wri Lein) 
wri Lwln< ' 
wri Lein) 


Please  select  an  option  according  to  which  status  of 


>  ) 


forces  report  sou  wish  to  peruse. 


>) 


1 

2 

3 

4 


writeln) 


Ships. 

Fidhter/intercptor . 
Earle  warning  aircraft. 
Radar  contacts. 


>) 
’  > ) 
> ) 
) ) 


Quit 


'  > ) 


10  MM. ' > ; 


) ) 


V- 

4 


wri Lwin< ' NOTE  ::  COORDINATE  POSITIONS  are  SCALED  5 
writeln)  writeln) 

wri Leln(  After  sour  selection  sou  will  be  presented  with 

writeln!'  specifics  and  status  information  concerning  sour  '>1 

writeln! '  selection.  You  will  then  be  returned  to  this  menu  '>) 
writeln!'  where  sou  mas  make  another  selection  or  repeat  a'>) 
writeln!'  previous  selection  or  auit.  '>) 
read  (selection)) 

while  not  (selection  in  C  '  1 ' . . ' 4' » '0 ' t 'a ' 1 )  do 
begin 

sc rncnt ro!bel ) )  writeln) 

writeln!'  You  must  select  one  of  the  available  options.  ')) 

write  ('  Please  trs  again  )  ')) 

read  (selection))  writeln) 

end)  <  while  > 
case  selection  of 
1  )  ships tatus) 


« 

h- 
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'2'  2  intatatus) 

'3'  !  aewstatus) 

'4'  2  rdrstatus) 
end*  <  case  > 

until  (selection  in  C'Q'*'a'3>) 
end  * 

SEGMENT  PROCEDURE  NEXTEVENTS) 
uedin 

scrnentro(clr)  )  scrncntrot  off >  >  writeln* 

writelni'  Pleese  choose  sour  desired  course  of  action  :  ')) 
wri teln) 

writeln!'  1  5  have  a  f idhter/intercrtor .  ')) 

writeln!'  2  2  Launch  a  f idh ter/intercptor .  ')) 

writeln!'  3  2  Recover  a  f ishter/intercrtor .  ')) 

urittflni '  4  S  Hove  an  AEW  aircraft.  ')) 

writeln!'  3  2  Launch  an  AEW  aircraft.  ')> 

writeln!'  6  2  Recover  an  HEW  aircraft.  ')> 

writeln('  7  2  Move/manuever  an  individual  ship.')) 

wri teln ( '  3  2  Alter  the  PIM  /  SOA  of  the  fleet. ')> 

wri teln) 

writeln!'  D  2  Review  the  display  of  forces.  ')> 

writeln<'  R  2  Review  the  status  of  forces.  ')) 

wri teln) 

writelri<  '  Q  2  Quit  ')> 

writeln)  writeln) 

writeln('  After  sour  selection  aou  will  be  asked  for  specifics  ')) 

writeln!'  about  eour  selection*  then  aou  will  be  returned  to  this 

writeln!'  menu  where  sou  maw  make  another  selection*  rareat  a  ' ) I 
writeln!'  selection  for  another  aircraf t/shir  or  ouit.  ')) 

read  (selection)) 
end ) 

SEGMENT  PROCEDURE  NEXTSTEP) 
beam 

scrucntro(clr) )  scrncntro(off > )  texton) 

write  ('  Current  GAME  TIME  (TOTAL  simulated  runninfl  TIME)  is  2  ')) 
wri teln! time 23*  '  minutes.  '))  writeln)  wri teln) 

if  eneplae  =  C3 
then  bed  in 

stop  2-  true) 

writeln('  The  Same  will  now  stop  because  the  attack  is  dead.' 
end 

else  uedin 

wntelri)  writeln) 

wntein('  Do  aou  wish  to  stop  the  prosram  at  this  time?  ') 
writeln)  eesnosel)  writeln)  writeln) 

if  (selection  m  C'Y'*'s'l) 
ti  ten  s  tup  2  -  t  rue 
else 
uvSm 

sc men t ro( of f ) )  writeln)  writeln) 
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I  id  I 


urU»  t  '  NOTE  J ! 

wri  tain  t  aridt  iaa  1 ' 


Gaaa  WILL  STOP 
minutas. ' > » 


aftar  ')) 


wri Lain) 
wri taint ' 
wr i tain) 
wri La  t  ' 
lari  J-  2) 
if  Las tap 
tiian 
bmun 

writaln) 
wri taint ' 
writaln) 
if  salaction 


wri tain) 
EnLar  desirad 
wri tain) 
TIME  STEP  tin 
tastap  5  = 

60 


tiaa  stap  for  tha  naxt  displaa#  ' ) ) 
writaln) 
ainutas)  J  ' > ) 
raadintt lan> ) 


sc rnent rot on) ) 
writaln)  writaln) 


writaln) 
Confira  sour 
sasnosal ) 
in  C'N'»'n'3 


antra  of  J 
writaln) 


’  >  tas tspJ3» 1 
writaln) 


ainutas. ' > ) 


than 


basin 

writa  (' 

tastap  ! = 

writaln) 

and) 


Tiaa  stap  tin 
raadintt lan> ) 
writaln) 


ainutas) 


>) 


and) 


and) 


and) 


SEGMENT  PROCEDURE  FLTUPDATE) 
bus  m 

„nii»rioj<t  :*  shipbasa) 
win  la  shipnaxt  <>  nil  do 

basin  .  , 

witii  shipnaxt'*  do  aatnawxs  t  ta»tap»Pia»soarxpOSf wpos)  ) 

if  si urnsKt". class  ■  cv 
than  baSin 

cvn  5*  ihjpnaxt'iKPOs) 
cva  J*  shipnaxf.apos) 
and) 

siiipnaxt  shipnaKV.  link) 

and)  -C  whila  > 

di  max  t  5  “  jirbasa) 
winla  jirnaxt  C-  ml  du 

basin 

with  jimaxt''  do 
if  alt  >  0 
Liian  basin 

if  acfrnd  *  saw 

than  if  aawndr  tmstap 

than  airdaleta  ( ai rnaxtrai rbasa) 
alsa  aawndr  :»  aawndr  -  tastap 
alsa  if  intndr  <•  tastap 

than  airdalata  ( airnaxt t ai rbasa) 
alsa  intndr  J=»  intndr  -  tastap) 
if  alt  a  1 

Liian  if  distanca  ( cvx  *  cva  ixposi  wpos)  <•*  racov 
than  basin 
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XPIJS  J  -  CVX> 

ypos  ;=  cvsi 

o f 

^lt  :=  01 
and 

wise  jziath  :=  decrees  (:<ms»mi>os»cvx»cvs)) 
datnawxa  ( Las tap t *zm th t velcty? kpos t *pos ) I 

•mi 

alsa  beain 

XPOS  CVxJ 

*PUS  :=  CVS  I 

wnd>  <  with  /if  > 

dirrtaxL  J-  ai maxt". link* 
end i  <  win  in  > 

and! 

SEGMENT  PROCEDURE  MTKUPDMTEJ 
Oft  R 

hud  5  intadarJ 
axras  :  raali 


bad  in 

atknaxt  !»  atkbasa? 
whila  atknaxt  <>  nil  do 
badiri 

with  atknaxt~  do  Satnawxa  (tMt*i>iazathfV*lcty>xko«rWoi)  t 
atknaxt  I  -  atknaxt''.  1  ink » 
and?  <  whila  > 

atknaxt  :=»  wtkbasa* 
if  tinw  >•*  ratrtiaa 

than  whila  atknaxt  <>  nil  do 
bad  in 

aLknax t~ .aaath  ! *  ratrthddi 
atknaxt''. valets  ! *  ratrtvalJ 
atknaxt~ .alt  :»  ratrtaltS 
atknaxt  l -  atknaxt". linkt 
and 

«lbu  if  (Lima  div  look  >  0> 
than  bedin 

look  S»  look  +  incr» 
win  la  atknaxt  O  nil  do 
bad  in 

ax  J"  atknaxV'.xPOS?  as  ; -  atknaxt" . spos r 
if  (distanca  (dXFas»cvx»cvs>  *  10)  <*  200 
than  atknaxt" . al t  i*  iribdalt» 
atknaxt". aemth  5=  decrees  <ax»asfCv; <»cvs)l 
atknaxt  !“  atknaxt". link> 
andi  <  while  > 


«nd  I 


and? 


> 


< 


Badinnind  taxt  fila  ThasisSb 


PROCEDURE  INITIALIZE! 


bvslin 

miut  (  shi pdata  »  '  ABA .  2  J  shipdata  •  data ')» 
itop  :  =  false)  tiae  :*  01  look.  inert 

f  renua  J  -  0) 
shipbase  i -  nil  1 
while  not  »ot  (shipdata)  do 
bttsiin 

f renua  5*  f renua  +  It 
new  (stiirnaxt)  I 
shipnwxt"  J®'  shipdata") 
shipnext" .  nuai  •*  frcriua) 
if  shipnext"* class  -  cv 
than  bedin 

evx  !3  shipnext".;<POs) 
evs  5 3  shipnext". spos) 
end; 

'ilurn*xt'«lirik  J®  shipbasel 
shipbase  J*  shipnext) 

Sat  (shipdata); 
and ; 

close  ( shipdata* luck > ) 
and; 

PROCEDURE  DOAIRLISTS; 
bed  in 

i-asat  (airdata  »  ' ABA. 2Iai rdata.data ' )  > 
airbase  i®  nil;  atkbase  i»  nil;  i  5 3  0; 

while  not  aof  (airdata)  do 
bedin 

casa  ai rdata" . iPf  Of 
ariaaa  J  bad  in 

1  *.»  1  +  1; 

naw  (a tknax t » anaaw ) ) 
atknext"  5*  airdata") 
atknext">nua  J*  i; 
a  tknax  L".  link  ;=»  atkbase) 
atkbase  1*  atknaxt; 
end) 

frand  !  badin 

f  renua  :»  f renua  +  i; 
case  ai rdata" . aef rnd  of 
intept  S  bad in 

naw  (airnaxt»f rendf intept) ; 
airnaxt"  S*  airdata"; 
ai rnaxt" .nu«  ;*  f renua) 
ai rnaxt" • link  !*  airbase) 
airbase  • *  airnaxt) 
end) 

aaw  :  beSm 

iiau  ( ai  rnaxt  rfrendr  aew> ) 
airnaxt"  !•»  airdata") 


ei  rnext"  >nu*  S=  frcnua» 
dirn«Kr.link  Jirb*»*( 
ai rbase  5*  dirn»xti 
•ndl 

end}  <  can  > 

end  i  K  f  rnd  > 

end  i  <  L'dSt  > 

Jet  (airiiatd)> 

end }  <  while  > 

close  <  wi  rdete»  lock )  } 

wnd$  <  DOAIRLISTS  > 

PROCEDURE  SHOUFLEET  } 
bedin 

Sref ixaode  (bw280rl)}  fillport} 

fltnext  •»  fltbese} 
while  fltnext  <>  nil  do 
beam 

UK  ;■»  round  <  f  1  tnext" .  xhos  >  } 
ria  !•»  round  ( f  1  t/iext" .  spo* )  } 
move  to  (nxriie)} 
case  f  1  triext'"  »what  of 

boat  :  drawiaeae  (  shipf ora *  2  r Or 0  >8*6 )  * 
eerie  :  drawiaaaa  < eewf orm 2 * 0 »0 * 10 * 6 )  5 
fidht  :  drawiaaaa  < intfora*2*0* 0* 10*6) } 

•lower it  :  drawiaaaa  (eawrdr  >2r0r0rSiS)> 

wicn t  i  drawiaaaa  (wirdr  *2*0*0*3*5>J 

fount  :  drawiaaaa  (ferdr  >2*0*0>3>5)} 

ssent  :  drawiaaaa  (ssrdr  *2*0*0. 3*5)} 

endi  <  caae  > 

dotet  <ux*ne>}  str  <f ltnext~.nua*asa) } 

wove  to  (nxms+8)*  uni  fcwr  i  te  ( 3»m«aCl  3 1  lenatht  asa>  rOr  12)  } 
fltnext  {•»  f  1  Lnext''.  link.} 
end! 

end) 

PROCEDURE  SHOW* T TACK  f 
bed  in 

dref ixmode  (bw2S0*l>»  fillport} 

enenext  5-  enebese} 
while  enenext  <>  nil  do 
beain 

nx  :  -  round  (  eneriex  t“  .  xros  >  } 
rie  1 3  round  <  eneriex  t" .  spo»  >  t 
mu ve  to  C  rix  *  t  iw  )  f 
if  enenext". what  -  pine 

then  brawimade  < intf ora  *  2 *0  *  0  *  10 » 6 > 
else  drawiaede  (ssrdr  *2*0*0*5*3)} 
dotet  (rix.ne)}  str  (  «n»n*i<t'  .  nua  *a»a )  S 

move  to  <nx*n«+8>}  uni  twr  i  te(  3»  asdCl  3  *  lenath(  mss  >  *  0  *  12  >  } 

enenext  J  -  enenext''.  link.} 
end! 
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PROCEDURE  AIRDELETE  i 


VAR 

Iwsb 


aiv^ntr) 


bwlin 

if  bhisun  «  bwsw 

bhon  :=•  bhisun'*  4 1  ink 

(flaw  boa  in 

lost  basot 

whilo  lost''. link  <>  bhisun  do 
lwsb  lwsb*. link) 
lwsb"*.link  U  thisun" . 1 ink » 
tnd> 

«mi  r 

PROCEDURE  SHIPDELETEI 
VAR 

lwsb  J  shipnbr> 
bwSin 

if  bhisun  -  bwso 

bhon  bwso  !*  bhisun". link 
also  bos in 

lwsb  bwsol 

whilo  lws b" • link  <>  bhisun  do 
lost  :*  losb~4link> 
lws b" 4  link  I*  bhisun'* 4  link; 
wnUI 

wnd  I 

PROCEDURE  3ETKIU.3  ; 


WM>wo>c:<rcs  S  iiiboSort 


bos  in 

cnbnoxb  J -  cntbwsot 
whilo  ci i bi ioh b  •->  riil  do 
bosin 

wbknoxb  ;■»  wikbwso* 
if  cnbnoxt'*  4  dowd 
bhon  boSin 

c:t  • 1  round  ( cnbnoxt"*  4  ;<nos )  i 
cs  5^  round  (cnUitKt'.aroi)) 
whilo  wtkrioxt  <>  ml  do 
boSin 

wx  round  < wbknoxt"* 4 kpos >  > 
ws  !*  round  < wbknoxt'’ 4 spos ) ; 
if  ((ox  •*  wx)  wnd  <cs  »  ws>> 

bhon  wirdolobo  < wtknoxt » wbkbwso > * 


2 


atknext  !  *  atknext".  link) 

end) 

and)  <  if  dead  > 

critnext  J -  critnext".  link? 
and)  <  while  cntnext  > 

fiupngxt  5“  &hipb«sal 
while  siiipnext  <>  nil  do 
bedin 

if  ahipnext".sunk  than  shipdelete< shipnext * shipbase ) ) 

shipnaxb  J*  ahipraxt'. link) 
and)  <  win  la  shipnext  > 

and) 

PROCEDURE  DISFLAGAME) 
bad  in 

-Coresident  whatnext} 

M rk  ( pn  t  r  two ) ) 
posi transfer ) 
scale  in  1) 
atkdraf  I -  falsa) 
if  f 1 tbase  <>  nil 

tiian  bedin  nucent  Is  f ltbame" .nun)  racantar)  and) 
repeat 

aiiuwf  leet  ) 
wha  tnaxt) 

until  selection  in  C'C'»'c'3) 
if  eriexlae  -  C3 
than  bedin 

teuton)  scrncntro<clr > )  scrncntroCoff > )  aritaln)  writeln) 

write  <'  The  antira  attack  has  baan  killed*  tha  dane  will  ')) 
wntelnl  'halt  shortly.  ')) 
writeln)  writeln)  continue) 
arid 

else  bedm 

scale  5*  1) 
atkdraf  : •»  true  ) 

tax ton)  scrncntrotclr > )  scrncntro< off ) )  writeln)  writeln) 

writaln('Do  auu  wish  to  sea  the  attack?')) 
writem)  writeln)  eesnosel )  writeln) 
case  selection  of 
!  bedin 

if  anebase  <>  nil 
then  bedin 

nucent  !»  anebase" .nut) 
rac enter ) 
and ) 

repeat 

showattack  ) 
whetnext) 

until  selection  m  C'C'*'c'3) 
end) 

and)  <  case  > 


writeln) 


I »  anebase' 
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release  (.-ntrtwo)? 
end? 

PROCEDURE  SHIPSTATUS? 

bed  in 

sc  merit  po  ( cl  r  )  ?  sernent ro (of f > ?  writeln? 

write  ('  UNIT'*'  'S17»'X'»'  'S7»'Y'*'  ' i 16t 'number  nuaber')) 
unUlnt'  MISSILE  80MB '  )  * 

(  '  NUMBER  SHIP  POSIT  POSIT  PIM  SOA')? 

wri  telri<  '  Lfi-SAH  SR-SAM  HITS  HITS')? 

Mri  twin? 

'ilupniixb  5=  siiiPbase? 
while  ^ini-next  <>  nil  Jo 
with  shipnaKt'*  Jo 
beam 

C4SH  claSS  Of 

cv  :  kind  ; -  '  c«rri«r  '? 
ersr  J  kind  l-  '  crcisvr  ' ? 

Jest  «  kind  1 3  'daitrOMr'i 
Wild?  <  CW3W  > 

write  (nuaJ6»'  '  « kind  r  xpoj  :8  ♦  2f  sposJ  8 : 2  »piml  6t  *oa  54 )  ? 
wri tell  i  < 1 rsnai 7  r srsaai 9>ahi ts 1  7  > oh its 18) ? 
siupnext  !»  link) 
end?  <  with  /  while  > 

write  In)  writelri?  continue? 
erid? 

PROCEDURE  INTSTATUS? 

JAR 

Jed t  Jis  :  inteder? 
beam 

sernen tro< cl  r  )  ?  sc rnent ro( of  f  )  S  wnteln? 

write  ('  UNIT  X  Y  relative  to')? 

writeln('  ' :24»  'minutes  nuaber')? 

write  ('  NUMBER  POSIT  POSIT  CARRIER  HEADING  VELOCITY')? 

wr i tein( '  ENDURANCE  MISSILES')? 

wnteln? 

i  o?  j  o? 

airriext  !■>  airbase? 
wiiile  an-next  <>  nil  Jo 
witii  eirnext"  Jo 
bedin 

case  acf rnJ  of 
intcPt  ;  beam 

if  alt  ;>  0 
then  beam 

i  :=  i  f  i?  j  j  +  1? 

Jea  • ~  Jeareea  (cvx»cver:<posFSPOs)  ? 

Jis  I-  distance  (cvxicvsfxposispos)  *  10? 
write  v  no« :  7  *  ;<pos  :  10 1 2 ispos) 9 1 2 )  ? 
write  <dedJ6» ' / ' »dis! 4» 'NH' > ? 
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writeln<  aaathS  7» velctwl 10» intndr • 12»  aa«S 10) * 

end 

else  i  J«  i  +  1> 

end* 

end*  <  case  > 

jxrn^i*  •  -  link! 
end*  <  with  /  while  > 

«!’xt*ln<  -Currintl^aou  have,  'Hi-J>:2,'  Hwhters  on  board  the  carrier.' 
unxitlni  writeln*  cum. 


PRGCEDUBE  AEWSTAHJS* 


cnn 

ijvy  f  ijib  •  Xllttf^W*'  f 


*c.-ni.-r,L.-e{elr>*  iCH.cr.tro(off)>  writein* 
write  <'  UNIT  X  Y  relative  to  >* 

wrxtwiih'  '  J24»  'minutes'  >  * 

write  <'  NUMBER  POSIT  POSIT  CARRIER')* 
wriiel/W  HEADING  VELOCITY  ENDURANCE ') » 
wri telni 

i  0*  a  !*  0* 

eii-next  airbase* 

while  eirnext  <>  nil  do 
with  aniiext''  du 

beam 

case  ec-frnd  uf 
aew  •  beam 

if  alt  >  0 
then  beam 

i  i<  i  *  1)  a  :»  i  +  1* 
tie*  {»  dearees  (cvxicvkikm»i»pos)  f 
<ii»  J*  distance  <  cvx » cvw  »  xeos » wi»os  >  *  10* 
write  (noa;7»xeos{10J2»weosl8S2) * 
write  (de*J6F »dis!4» 'NM' ) * 
wri tel n( azmth! 7 ► valets S 10 r intndr ! 12) * 
end 

else  i  !“  »  HI 

end* 

end*  <  case  > 

all-next  !*  link* 
and*  <  with  /  while  > 

wri twin \  boa rd  the  carrier.  ) 1 
wri twin*  wri twin*  continue* 
end* 


writeln* 
relative  to ' ) * 


POSIT  POSIT  CARRIER')* 
VELOCITY  ENDURANCE ' ) » 


130 


PROCEDURE  RDRSTATUSI 


VAR 

deep  dis  :  integer) 
begin 

jcnicntro(clr)  I  scrncnt rolof  f  >  I  oritalnl 

uritt  <"  CONTACT  X  Y  relative  to  CONTACTING')) 

oritalnl  '  UNIT  in  DEAD  /')( 

write  1'  NUMBER  POSIT  POSIT  CARRIER  RADAR  ')! 

oritalnl'  CONTACT  ALIVE') I 

ori telnl 

i  o> 

entnext  •—  critbasv) 
while  ci)tii*xl  <>  nil  do 
with  cnlnaxt*  Jo 
owN  xn 

ded  i-  degrees  (cvkicvkixposikpoiH 
dis  5*  distance  (cvxicvyixpotiypos)  *  101 
ux**  olio  of 


**  ret  i 

kind 

J  a 

'  air 

search  ' 1 

eh 

kind 

J  su 

'ship 

search  '1 

f  con 

kind 

J  a 

'fire 

control ' 1 

*1 

kind 

a  u 

'interceptor  '1 

end)  <  case  > 

if  dead 

than  choice  !=  'killed’ 
else  c htiictt  'alive  'I 
i  J-  i  +  1) 

writa  <noaJ7f  xi»o*51i:2faao*:8:2fdaa:5f '  /'»di»S4f'NM  '>) 
ori telnl kinds  rdnel  7 > '  '  f  choice >  f 

if  i  mod  10-0 
than  begin 

on  tain)  oritalnl  continual 
sc rnen trol el r > I  scrncntroCoff ) I  oritalnl 

writa  1'  CONTACT  X  Y  relativa  to')) 

or i laln< '  CONTACTING  UNIT  in  DEAD  /')! 

writa  <'  NUMBER  POSIT  POSIT  CARRIER  '>! 
oritalnl'  RADAR  CONTACT  ALIVE') I 

wri  talril 
and  I 

entnext  S-  link) 
and!  <  with  /  ohila  > 

oritalnl  oritalnl  continual 
and  I 

PROCEDURE  SELECTOR) 
begin 

ohila  not  (selection  in  C ' 1 ' . • '9' t 'D' t 'd' r 'R' * ' r' f '0' t 'a' 1 >  do 
begin 

scrncntroluel > I  oritalnl 

oritalnl'  You  must  salact  ona  of  tha  available  options.  ') 

writa  i'  Please  trg  again  :  ')) 
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wri  ttilni 


read  C  salec  tion  )  > 
arid)  <  wh  ii.tr  > 

ca»e  selection  of 

'l'  i  moveac  < lnlcpti 'auv«' ) ) 

'2'  :  moveac  C intent* ' launch' > » 

3'  :  Mivvaic  (intcpti  'recovir'Ji 

'4'  2  moveac  (daui'movf')) 

'3'  2  *ova«c  (a«wi 'launch' ) i 

'6'  :  moveac  (a«ui'r»cov»r')i 

'7'  •  aovakhip  ('sinilt')t 

'3'  S  movesiiip  ( 'fleet')) 

'  D '  »  '  d '  :  displedame) 

'R '»'(*'  J  b *S in  shows tabus)  selection  !*  '  '(  and ) 

and?  <  cist  > 

end* 

PROCEDURE  MhKEOUTFILE > 
uasij.fi 

raw  cl  tw  ( shpoutf  ile*  '  ABA.  2 :  sbroutf  ile* data ' )  i 
reunk*  (ai  poutf  jl*i '  ABA <21  ai  poutf  i  la .  data '  >  > 
siupnvKt  J*  shipbase) 
will  la  shjpnvxt  <>  nil  do 
bed  in 

siipuubf ile"  J=*  shir next") 
put  (shruutf 11a) ) 
shipnext  :»  sbirnex t" .  link) 
and! 

ail-next  !-  airbase) 
wiilla  alruaxt  <>  nil  do 
begin 

jiruulfil*"  :=  airnext") 
pub  (airoutf ila) ) 
aii*naxt  !a  airnext',.link) 
end) 

atknext  atkbase) 
will  la  atknext  O  nil  do 
bad  xn 

eiroutfile"  I  *  atknext") 
put  (airoutf ila) ) 
atknext  !=*  atknext" . 1 ink ) 


end) 

close  (shpoutf liar  lock) ) 
close  (ai  poutf  ilef  lock  >  ) 

and) 

■C 

ilAKEOUTFILE 

> 

bad  in 

< 

ABhQrtME 

> 

in ibialiae)  dcai  p! jl » bs» » 

dhbwforms) 

texton) 

scnicntrutclr))  *crncritro< of  f  > )  writeln)  writeln) 

upji.aln< '  Do  sou  wish  to  have  the  computer  step  through  the  gamer' 
writelri<'  showing  onla  the  disrlawsr  at  a  fixed  time  stem?')) 
writeln)  writelii)  stsnossl!  writeln) 
case  selection  of 
' Y ' f 'a '  !  bad in 
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wriUlni  writeln# 

writelnC'  All  times  ari  to  be  entered  as  MINUTES.  ')# 


writeln# 

write  ('  Enter  the  length  of  each  step 
len  J-  21  tastep  S«  readint ( len ) # 
writeln#  unteln)  untelnl 
write  ('  Enter  the  total  plawind  tiae 
len  J  =  3 !  endtiae  !»  readint ( len > f 
step thru  J=  true# 
enu# 

'  N '  t  '  ri '  S  dedin 

tas  ten  t »  0# 
endtiae  5-  tadefault# 
stePthru  J*  false# 

end# 

end#  <  case  * 

repeat 

cn  these  J-  nil# 

mark  (pritrone)#  <  MARK  a 

ai radarcutc#  <  build 

shipredarente#  -C  releas 

displadeae#  <  longer 

if  not  stePthru 
then  bed in 

shows tat us# 
repeat 

nexteventsf 
selector# 

until  selection  in  C'Q'.'a'l# 
nextstep# 
eriu# 

time  : 3  tiae  +  tastep# 
detkills# 

re 1 ease  C m t  rone ) # 
f 1 tupdete# 
atkupdate# 

until  <  (time  >  endtiae)  or  stop  ># 

inakeoutf  ile# 

d.  <  MBPS 


MARK  and  RELEASE  are  APPLE'S  was  to  > 
build  dynamic  variables  and  then  > 
release  the  meaore  when  thee  are  no  > 
londer  needed.  > 


stop  )# 


ABAGAME 
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>  -  anipuaswr 

Hmin  ilm'rm.it  <;•  nil  do 
uMin 

with  shipnext'*  do  Setnewxa  (  tas  tea  *  pii>  soe  t  xpos  i  wpos  )  > 
if  iiiir-iiaxf  .class  »  cv 
then  uvSni 

cvk  !■»  shipnex  t“ .  xpo*  I 
cvw  :-»  shipnext"' •  apos  > 

•rid  I 

ainpnext  shipuaxt"*  .  1  ink  f 
wridf  <  whlla  > 

ii  rnwxt  S-  Jifuaad 
whilw  dirt  text  O  ml  Uu 
UWbUll 

with  din  text''  do 
if  alt  .:•  0 
then  Lioslin 

if  aef  rrid  »  aew 

then  if  aewndr  <»  tas tap 

than  airdelete  < ai rn»« t r ai rtoasw ) 

•  Isa  aewndr  :=>  awwndr  -  tast»P 
•  Isa  if  intndP  &•  tmstap 

than  airdalete  (sirntKtfdirbast) 

•  Isa  intndr  :  =»  intndr  -  tas tap* 
if  alt  -  1 

than  if  distance  <  cv:<  icvki  ;<pos  t  spos  >  <•  recov 
then  bay  in 
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